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NEWS AND REVIEWS 

by Mike Dunn, Co-Editor 

We don't usually talk alot about our meetings of ACE, but the one last 

>nth was one of the best, ever! The people at Microbits, led by Kirt 
—otockwell and their head programmer, demonstrated some of the 
wonderful capabilities of the new 520ST. We saw amazing graphic 
demos from Atari, as well as the very high speed of this machine. We 
understand Sig Hartman from Atari will be delivering a truck load of the 
new STs when ready to the Portland Atari Club and our club "soon" at 
a special price. 

John Goodrich, a photograpy teacher at a local high school, 
demonstrated a truely "awesome" timer/darkroom controller which took 
him over a year to develop. It connects through the joy stick ports to 
a "black-box" controller, and controls the various equipment found in 
a darkroom. The menus, timers and control features were all of very 
professional quality — as nice as those found in programs by Synapase, 
etc., and has features way beyond my understanding both in 
programming and in photography. Hopefully, John will write a series of 
articles on how he did it. 

As you may have noticed, we have been somewhat mixed up with our 
articles and program listings not appearing in the same issues. Our 
newsletter is put together by all "slave labor", and many of us have busy 
professional lives. Different people are responsible for different aspects 
of the newsletter, and sometimes we don't discover our mistakes and 
lack of communication until we get the newsletter back from the printers. 
Sorry, but what do you expect from slave labor. . .? We do try, even 
though sometimes that's hard to believe. 

Denny and Ruth Hughes have taken care of the very thankless task 
of the mailing list for the last 2 or so years, but are unable to do so now. 
We all thank them for all the work, but now it's back in my hands. Since 
my time is very limited, and since our mailing list needed to be on several 
files by the program we were using before, we needed a quicker mailing 
list program which is able to hold all the names on one file. Don Marr, 
owner of Computer Palace (2160 W. 11th, Eugene, OR 97402) donated 
a double-density copy of their Super-Mailer Plus ($50). This program is 
much faster, very easy to use, and stores many more records. He was 
also kind enough to write a custom program to allow us to convert our 
Filemanager files to the Super-Mailer ones. If your mailing label is 
incorrect from the conversion, please let me know — there are bound 
to be some in this kind of transfer. 

Some new items received this month of interest. Jerry White (18 
kory Lane, Levittown, N.Y. 11756) is now selling his popular program 
_ xer Tourney directly to user group members for only $12. This compiled 
BASIC program is a simulation of Draw Poker as played in the poker clubs 
of Gardena, CA, and has always been very highly regarded. 

A new, greatly improved edition of Atari BASIC: XL Edition (John Wiley, 
$15) by Bob Albrecht, Leroy Finkel and Jerald Brown is now out. The 
earlier edition of this programmed learning text came with the original 
Atari when the 800 was first released, and was written before the 
computer was completely developed. Many of us "old timers" learned 
from this book, but it had many errors and was very limited, ignoring 
many of the advanced features of the Atari. This new edition is much 
better, and is perfect for the beginner. 

Minute Manual for the Dot Matrix Printer Minuteware, POB 2392, 
Columbia, MD 21045, $13) is a new book — a "non-programmers guide 
to buying, using and understanding the dot matrix printer. This 166 page 
book covers the Epson, Okidata, Gemini, Prowriter, NEC and Apple 
printers. Very similiar to the manuals which come with the above printers, 
except it is much better written and easier to understand, and leaves 
out the advanced programming features of the printers. Of use to those 
of you who cannot understand your printer manual, and don't have a 
user group member nearby to help you. 

Paper Clip, the highly regarded word-processor from the Canadian 
software company, Batteries Included, (U.S. Office, 17875 Sky Park 
North, Suite P, Irvine, CA 92714) is about to be released in the Atari 
version. More about it next month if we receive it by then. 

In this issue is the followup of Stan Ocker's Labels program from the 
March issue. We didn't have room for it in the May issue. Stan also sent 
a correction to the Label program: 

88 REC$ = INDEX$(128*(S-1) +1,128*S): GOSUB 750: IF S = 32 THEN 

GOSUB 500: RETURN 

89 S = S + 1: REC$ = INDEX$(128*(S-l)-i-1,128*S): GOSUB 750: GOSUB 

500: RETURN 


BUMPAS REVIEWS 

I can underline! I can print superscripts and subscripts! When I print 
double columns, the printer backs up the page automatically to the top 
of the second column after printing the first column! I've never been able 
to do these functions on my IDS printer with any word processor which 
uses Atari disk format until now. OSS has sent Version 2.2 of the 
WRITER'S TOOL to all registered owners. This upgrade contains three 
utility programs to improve the performance of this already great word 
processor. 

The program which allows me to use the printer functions described 
above is a printer configuration program. It's menu driven — all you have 
to do is to respond to the prompts for most of the functions. You may 
also create a translation table to translate characters before they are sent 
to the printer. 

Another program permits the user to customize the default screen 
formatting parameters. Color and luminance of background and 
characters may all be set to your taste. Default page length, line spacing, 
beginning footer line, font, single sheet option, line length, margins, 
justification and tabs may be set to automatic everytime you boot up 
the program. Or you may create multiple custom files and "Change" them 
from within Writer's Tool. 

The third big change is the addition of a spelling checker and a 
dictionary management program. The user can create specialized 
dictionaries to speed checking. You may add and subtract words from 
a dictionary already created. 

A dictionary is provided on the reverse side of the disk which contains 
approximately 20,000 words. As the program uses ASCII format, text 
files created with many other word processors may also be proofed with 
this checker. 

A mail merge function has been added, and one can define up to 10 
strings of 255 characters each to be called up each time you press 
OPTION plus a number from 0-9. 

PRINTER BUFFER ROUTINE 

Do you have an old Atari 400 around, perhaps only serving as a spare 
chip set for your 800? Or maybe you couldn't sell your 600 XL when 
you upgraded to an 800 XL or an XE machine. Well, for $40 you can 
buy the Printer Buffer Routine from B.L. Enterprises, Box 4282, Louisville, 
KY 40204. 

The package comes with a cartridge, a disk, and a cable to connect 
two computers together through their joystick port #1. The 
documentation (more than 200 sectors) is on the disk, together with 
versions of the routine for 16k systems and those with more than 24k. 
I set up my 400 as the buffer, and I got 15.1k to use as a printer buffer. 
I printed a program listing of over 400 lines. The PBR gave me back my 
computer after less than 140 lines had been printed! With the 400 as 
main computer and the 800 as buffer, I have even a larger printer buffer. 

The user is advised to use Atari DOS 2.0 with this routine. I tried the 
Copy function to printer with Smart DOS and the program did not 
recognize the buffer. I also tried to use it with the Writer's Tool, but as 
its disk has DOS XL (an OSS product) on it, and I did not create a new 
one with DOS 2.0, I could not get it to work. The PBR should work with 
cartridges such as AtariWriter, Assembler-Editor, etc. 

On an XL machine, the routine locates itself into some of the unused 
portion of the 64k, and so creates a larger buffer than one obtains on 
an 800. If you've been thinking of getting a printer buffer and you have 
two Ataris sitting around (or know where you can get a 400 cheap) you 
might find your need satisfied with Printer Buffer Routine. 

FREE MODEM! 

SourceView, 835 Castro Street, Martinez, CA 94553 800-443-0100 
x440 has released what they describe as "a totally configurable 
telecommunications system." BULLETIN BOARD CONSTRUCTION SET 
sells for $50, plus $4 postage and handling. If you order the program 
before September 1, 1985, they will include a free 300 baud, auto 
answer, direct connect Bell standard modem. We haven't seen the 
program, so can't comment on how it works. But the offer of a modem 
in the package for the same price might make it interesting to a user. 


JULY PICNIC 

The July picnic will be at Jasper park on the regular meeting day. This 
year we will have a "flea market". ACE members can bring any surplus 
hardware and software to sell to other members. 

Vice President Larry Gold will designate the area in which members 
may set up their goods for sale. Each member desiring to sell items will 
give Larry Gold a $5.00 donation which will be delivered to WISTEC 
(Willamette Institute of Science and Technology). WISTEC will send you 
a receipt for your tax deduction. 
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SENSITIVE ATARI 

(Reprint: SBACE, March, 1985) 

The Atari can measure temperature, light level, and humidity. You can 
add this capability to your computer for just a few dollars, and without 
making any modifications. The paddle ports of the Atari are actually 
specialized analog input ports. They can read the value of resistances 
in the range of 100 to 100, 1000 ohms with a resolution of one part in 
228. The Atari reads the value 60 times a second and puts them in 
memory locations which can be accessed by Basic Peek statements. This 
article includes a Simple program which will read the inputs, convert 
them to useful units of measure, and display them on the screen. 

The temperature sensor is a thermistor. Its resistance decreases with 
temperature. I use a Fenwal model GA45P2 which has a resistance of 
50,000 ohms at 25 degrees centigrade. You can use this temperature 
sensor to measure room temperature, and many other temperatures. 

The light sensor is a GE X-6 photocell. Its resistance decreases with 
increasing light. When the photocell is plugged into the Atari, it can be 
used in the darkroom to control exposure of prints, or it can be used to 
measure biological parameters. I've used it to measure the breathing rate 
of a mouse by shining a focused light beam at the mouse's stomach and 
pointing the photocell at the edge of the circle of light. When the mouse 
breathes in, the light reflects into the photocell. When the mouse 
breathes out, the light reflection moves out of view of the photocell. 
Similarly, NASA uses photocells to measure the heartbeats of astronauts. 
They put a small lamp on one side of the ear lobe and the photocell on 
the back side. Each time the heart beats, the pumped blood darkens the 
ear lobe enough to change the light level received by the photocell. 

The humidity sensor is a Devry Industries Hygropak model HA. It is 
actually a particle sensor, which is most sensitive to humidity. The higher 
the humidity, the lower the resistance of the sensor. None of the above 
sensors cost more than $5.00. 

The program listing demonstrates the capabilities of the Atari analog 
input system. Lines 10 through 62 Open Device 2 as the keyboard input, 
put the screen editor in Graphics 2 mode without a text window, and 
prints an opening menu. Line 75 reads the keyboard. It looks for any one 
key to be struck. Lines 80 through 90 display the selected key on the 
screen for a fraction of a second before Line 95 selects the next 
procedure to execute. If the key is "1", the temperature procedure at Lines 
100 to 170 is executed. If a "2", the photocell procedure at lines 200 
to 260 is executed. On a “3", the humidity procedure at lines 300 to 
360 is executed. If the key is not a 1, 2, or 3, then the closing screen 
at Sines 999 to 1040 is displayed. 

The temperature procedure starts by setting up a Graphics 2 without 
text window, and turns off the cursor. Line 120 reads the analog input 
as an 8 bit value between 0 and 228 by doing a Peek (624). Location 
624 stores the analog input from the left pot of Jack 1 (there are a total 
of 8 pot inputs: 2 pots per jack — the shadow locations of these inputs 
are locations 624 through 631). Line 130 converts the value read to a 
temperature in fahrenheit. The values for this equation were obtained 
by exposing the sensor to 2 known temperatures, measuring the input 
values and using some algebra to solve two simultaneous equations for 
two unknowns (the slope and intercept of the linear conversion equation). 
Lines 140 and 150 print the result. Lines 160 and 170 check to see if 
a key was pressed while the temperature was being read and displayed. 
If any key was pressed, the value is read and the program goes back 
to the main menu. 

The light sensor and the humidity sensor are handled in a similar 
fashion. Only the conversion equations are different. Lines 999 to 1040 
display the list of sensors demonstrated by the program. 

The hardware needed to connect the sensors to the Atari is very simple. 
A 9-pin female connector is used to plug into the paddle jacks. The 
connector, which is of the "DB" variety, is available for $0.75. Solder 
wires to pins 7 and 9 of the connector and to the two leads of the sensor. 
Plug the sensor into jack 1, and you are in business. 

This demonstration shows the versatility of the Atari analog inputs. 
The applications are limited only by your imagination. 

— Richard Q. Fox 
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REFORGER '88 

(SSI $59.95) — Every year NATO holds exercises representing a Warsaw 
Pact attack on West Germany. With REFORGER '88 (SSI, $60), you can 
get a piece of the action. This fine wargame simulates an attack on the 
Frankfurt airbase. You are given command of two corps, with a total of 
five divisions. Can you fight a delaying action against twelve Warsaw 
Pact divisions? 

This game comes with both one- and two-player options, and there 
are two scenarios included on the disk. There are also four skill levels, 
but these only affect the number of replacement units. The game itself 
comes on a double-sided disk with two plastic covered maps and a 
detailed rulebook. The map is very high quality Hi-Res graphics, and the 
text portions of the game have been tabbed over so that there isn't any 
overscan. 

The game format is very nice so it is rather difficult to make a bad 
mistake. The game components have accounted for every single NATO 
or Warsaw Pact tank, missle launcher, or armored personnel carrier. The 
combat system has every weapon rated for attack and defense, with 
variables for disruption and mode of attack. The actual combat appears 
a little abstract, and it seems to favor the NATO forces, but it accounts 
for things which are difficult to accurately measure, such as loss of 
control, or momentum. An air element is also present, with air squadrons 
of both sides represented down to the individual planes. There are also 
four types of weather which only affect air combat. 

This is a good game, and I like it, but a few random events thrown 
in, or perhaps another scenario, might make this a much more enjoyable 
game. For random events, I suggest having extra or no reinforcements, 
such as from adjoining units like the 1st Belgian, or the 2nd French. The 
game also uses the option of chemical warfare. I feel this is not 
adequately represented in the game. The solitare versions leave much 
to be desired. 

The game stresses a ''desperate delaying action”, but to me it's more 
of a case of where the Soviets can be held. With advanced warning, the 
Soviets can be held to within 10 hexes of their end of the board, while 
the surprise scenario gives the Soviet armies about half to two-thirds 
of the board, but still out of reach of their main objective, the Frankfurt 
airbase. Another criticism is that the game says you must hold until 
reinforcements arrive. But in actual play, there is only one division for 
reinforcements. If you can't hold the enemy back with four divisions, 
you can't hold them back with five. 

About the artificial intelligence, it doesn't exist. All I can say is that 
if the real Soviets fight this bad, NATO has nothing to worry about. The 
computer is not very flexible, and I have launched localized counter¬ 
attacks and actually ended up with more units than the Pact forces. Every 
game I played, a zero score or less is a decisive victory for NATO, I average 
around -50000. However, with two players, the game is infinitely 
superior. 

As a simulation, the game is not so hot, although as a game system 
for two players it is excellent. If you have a wargamer for a friend, you'll 
get many hours of great fun. 

— Aaron Ness 

MULTIPLE CHOICE 

The term "boilerplate” is used by technical writers to describe large 
portions of text lifted from other handbooks, procedures or other formal 
documents. Boilerplate needs only to be changed slightly to conform with 
the new document being written. Not far from a Palimpsest, but neater!! 
The writer is applying it to portions of computer programs lifted from 
other computer programs to create a whole new program. 

As a result of many trials with school children and the handicapped, 

I have settled on the Multiple Choice form of quiz as the most useful 
in presenting quizzes. I tried putting several subjects in one quiz, but the 
problems involved made those too cumbersome to perpetuate. For a time 
I made comparisons using type-in answers versus multiple choice 
answers and I find users will not even try type-in if multiple choice is 
available. The result of my experience leads me to concentrate on one 
subject multiple choice programs with simple DATA statements. The 
Lexicon program embodies the end product of my experience. 

The ACE library has the other programs I've prepared in this series, 
including: French, German, Italian, Portuguese, and Spanish. Lines 100 
through 1535 are the same in all these programs except for changes 
desired for cosmetic purposes. With the exception of Lexicon where the 
DATA has three words instead of two words, any data will work with 
any program. In other words, the German introduction and display could 
be grafted onto the Spanish words and the only thing you'll notice is 
the German words look like Spanish. 

The use of a whole program for one subject has the advantage that 
more data can be devoted to the subject, the multiple choice answers 
are more diverse and the READ DATA command executes quickly and 
without delay, maintaining user interest. This is the only system I have 
found which allows BASIC to move fast enough to satisfy the user. The 
teacher can easily make changes to these programs to make them fit 
the data. 


- John R. Kelly 



PLATO 

(Reprint: P.A.C.E. World, May 1985) 

We've all experienced a time when the machines and tools we are using 
K<, ve amazed us. Often it's their power, or their versatility, or sometimes 
i their stubborn inability to perform the task for which they were 
__ signed. Computer users are especially prone to being caught off-guard 
Dy their machines. Computers are just about the most complex and easily 
confused tools we use. 

My 4 year old Atari 800 has surprised me time after time; My first 
taste of Star Raiders; the realization that I, too, could make players and 
change display lists; an intermittent hardware bug somehow tied to my 
need to use the computer. My most recent pleasant shock was seeing 
The Learning Phone (TLP), Atari's Plato access software, in action. 

Plato is a telecommunications network operated by Control Data Corp. 
It supports high resolution graphics and has a truly stupendous library 
of educational software making effective use of the graphics capability. 
A unique CDC terminal with special keys and a touch-sensitive screen 
is normally required to use the system. Unfortunately, the $10,000 price 
tag for the terminal restricted Plato use to educational institutions and 
well-heeled businesses. 

Atari microcomputers are among the first to have Plato access 
software. The TLP cartridge was developed for Atari by Vincent Wu and 
friends, and boy, is it a nice piece of work. They've given Atari computer 
owners full Plato service with very few of the trade-offs expected when 
adapting two very different technologies. Simulating the Plato terminal 
was the hard part. The authors have cleverly used the special abilities 
of the Atari to take the place of the special functions of the CDC terminal. 

The unique Plato keys are replaced by logical combinations of keyboard 
and Function (Start, Select, and Option) keys. For instance, the Plato 
"Data" key is Start-D; "Lab" is Start-L, etc. Also, some of the most 
commonly used Plato keys can be input using ajoystick, allowing users 
to "kick back" from the computer and drive the system with their feet 
on the desk. The joystick can also be used to simulate the touch-sensitive 
screen on the dedicated CDC terminal. When the system is looking for 
touch screen input, a cursor appears on the screen. The user moves the 
cursor to the desired selection, presses the joystick button, and voila, 
there you are! TLP sends the appropriate signal down the line and the 
system never knows a touch screen wasn't used. 

Two display methods are available at the touch of a button: Normal 
and Zoom. In Normal, the large 512x512 Plato screen is compressed to 
fit completely into the Atari Graphics mode 8 (320x192) screen. The 
Zoom mode restores the full Plato resolution, but naturally only a small 
portion (about 30%) of the screen can be displayed at one time. The 
nick is used to move the smaller Atari "window" over the larger Plato 
3n, using Atari's fine scrolling ability. 

_.<o dry description can take the place of hands-on experience. . . . 
Getting on Plato is similar to accessing the more familiar information 
services, like CompuServe and The Source. Plato has no initial fee and 
presently costs $7.50/hr. . . . 

It checks for Electronic Mail under a handful of categories. It also 
checks the present participation in a number of multiplayer, interactive 
games.... We then menued up an educational program, one of over 
6,000 available on line. It was instructionson how to safely start, operate 
and slip the Auxilliary Power Unit on a Boeing 747! Plato quickly drew 
the necessary subsection of the 747 instrument panel, complete with 
switches and clearly labelled gauges. A small box of text appeared and 
prompted me to take the first step. At the same time, a bright cursor 
appeared, indicating I should use the joystick... you can just about get 
the complete ground school for the 747 wih Plato. 

Another somewhat randomly selected program was a thorough lesson 
on the vector relationships of moving objects, complete with animated 
descriptions and detailed formulas. Plato explains things much better 
than my college dynamics professor, at a much lower cost! The catalog 
of educational programs includes programs for elementary students up 
to graduate students, dairy farmers, electrical technicians, educators, 
managers, insurance salesmen, etc! 

We then called up a list of users presently on the system and made 
contact with one. Regardless of what they or you are doing on Plato, 
you may call another user without interrupting your or their task! The 
user we called was playing chess with Plato. He put us in monitor mode 
and or screen became a duplicate of his, complete with graphics. He 
showed us some fantastic drawing programs from his files, files we 
couldn't have accessed without him! We carried on a running dialog with 
him on the bottom two lines of the screen while we were watching his 
graphics programs develop on the rest of the screen! 

Next we looked at three of the many realtime, interactive games .... 
Empire is a simulation of tactical space combat, with animated (about 
2 second refresh rate) graphics. Wolfpack is a WWII submarine vs 
destroyer simulation. Dry Gulch is a role-playing simulation of gold-mining 
in the Old West. Each of these is MUCH too complex to describe in detail. 
In each the simulation goes on 24 hours/day, as long as there are active 
players. You enter and leave the simulation at will. While playing you 
cooperate with your fellow teammates to achieve the common goal, or 
\e out on your own for individual glory. You can communicate with 
other players without interrupting the simulation. 


Hopefully, now you've got an idea of how different Plato is from other 
info services. I've been around computers professionally and as a hobby 
for years. This is just about the most generally useful service I've seen 
a computer perform. Atari's TLP brings this to your doorstep. 

In all fairness, using Plato with TLP does have some minor drawbacks. 
Reading the text on the Normal mode screen does take some practice, 
due to the scrunched characters. Not having the full screen always 
available in all its exquisite graphic detail is a shame. Things might tend 
to get expensive using Plato at $7.50/hour if you're stuck with a 300 
baud modem. However, these are not really serious problems when 
stacked up against the obvious benefit of having this powerful 
educational tool in your very own home. 

Atari should be releasing TLP cartridges before June. At last rumor 
the packaging was being prepared now. The cost? Hopefully, right around 
$30. 

— David N. Koster 

B/GRAPH 

Reichman, Michael H. & Wilson, Robert — 1984 

B/Graph has been improved, and is even better than in its original form. 
It comes to us with one of the best 149 page instruction booklets, I have 
ever used. The booklet is organized around a series of Tutorials. The nice 
thing about B/Graph is the software is as impressive as the nicely laid 
out instructions. Tutorial 1, entitled Graphing, gets you started. This 
section deals with the basics of start up and utilization of the main 
menus. 

In the booklet each of the main menus is shown by a black and white 
reproduction of the screen display. A list of subjects shown in the main 
menu allows you to gain an understanding of the extent and versatility 
of this program. The main menu lists the following options: 

1) Reset printer type (allows access to printer options and variables); 

2) Graphing (allows Bar Graph, 3D Bar Graph,Segmented Bar Graph, 
Line Graph, Scatter Graphs, Market Graphs, plus grids overlaying 
rescaling color control); 

3) Pie Chart (allows the construction of Pie Graphs, like the graph 
function this also has many customizing features); 

4) Graph Image/labeling (allows screen dump to a disk as a high 
resolution picture file, slide display function, alternate labeling); 

5) File Manipulation (allows file data manipulation, exponential 
smoothing and moving averages, ASCII files); 

6) Statistical Analysis (allows distibution testing of data); 

7) Regression Analysis (allows mathematical curve development for 
data); 

8) Correlation Analysis (allows correlaion between two factors); 

9) chi-Square (allows Chi-Square analysis); 

0)Mini DOS (allows access to basic DOS functions); 

EJEnhancement Disk. 

From this brief summary of the main menu I hope you can get a feeling 
for the range of options open to the users of this program. In addition 
to a section on each of the above topics, the instruction book contains 
two appendices and a bibliography. Not being much of a statistician I 
was happy to see the inclusion of the bibliography. The bibliography gives 
data on some basic books dealing with statistics and their uses. It also 
gives the titles of some Atari usage books which will help uou understand 
how to utilize your computer and statistics. 

Appendix A deals with the problem of Photographing the screen. The 
program does support the utilization of printers, but for those who wish 
to take the full advantage of the color graph options or who are doing 
slide presentations, this short section gives some helpful tips. Certainly 
a nice touch. 

Appendix B deals with Artifacting, or the concept of color graphics 
and some of the limitations because of color modes, types of monitors 
etc. This is also short but again a nice touch. 

One feature, which I think is interesting, is the Tutorials give you a 
variety of files with which to work. The tutorial files range from 
astronomy, population, Napoleonic Wars, to car defects. This makes me 
see much more clearly the range of usuages of statistics. 

Like all programs there are some problems. One problem deals with 
need to reboot to access certain of the B/Graph functions. Also this 
program is best utilized using a two drive system. On the whole this 
program is worth looking into if you need the use of some good statistical 
analysis, or just need a way to create some nice graph effects. 

— Nick Chrones 
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18 REM 


SYNPRINT BY BOB FLOYD 


[SYNPRINT,BAS by Bob Ploydl 


ft Print Utility For 5ynFile+ 

20 REM Written For Use By SPftCE - St. 
Paul ftTftRI Computer Enthusiasts, 
November 25, 1584= 

38 REM Printer control codes are 

located in lines 1210 and 122B 
for those with printers 
40 REM other than NEC 8023ft or Pro¬ 
writer, see SYNPRINT.ins for 
further instructions ( this 
50 REM is an ATARIHRITER text file 3, 
100 POKE 82,2:GRAPHICS 8: DIM D$(7683,P 
$(5123,B$(3803,T$(2563,H$(2563,LL$(153 
,PP$(153,FF$(153,A$(203,5$(83,D5(153,D 
E(153 

118 DIM UL8$(33,UL1$(33,ENL0$(33,ENL1$ 
(33 , ENH8$ (33, ENH1$ (33 , CPI18$ (33, CPI12$ 
(33,CPI17$(33,DBL0$(33,DBL1$(33 
120 DIM ITL0$(33,ITLi$(33,UDEF8$(33,UD 
EFi$(33,L(33,LI(33 ,L2 (33 :OPEN #1,4,8," 
K:": TRAP 138:GOSUB 1200: GOTO 140 
130 TRAP 130:? "Error #";PEEK(1553D 
elected at Line "jPEEK(1863+256*PEEK(1 
873 


135 ? :? "Press Any Key to Continue":G 
ET #i,ft 

140 CLOSE #2:CLOSE #3:POKE 752,1:GOSUB 
258:GET #i,A;IF A)127 THEN A=ft-128 
158 A=A-48;0N A GOTO 380,580,700,2006, 
168:GOTO 148 
168 POKE 752,6:END 
155 REM 
288 ? 

UlilOSV'sPOKE 82,18:? 

218 ? "Bata File: ";FF$:? "Label File 
: ";LL$:? "Format File:";PP$ 

220 POKE 82,2:POSITION 2,5:RETURN 
245 REM miMSm 

258 GOSUB 208:? : ? :? "1 

= Load File":? "2 -Load/Create Label 


File" 

268 ? “3 - Load/Create Print Format Fi 
le":? "4 = Print":? "5 = Quit":? :? "E 


nter Choice":RETURN 
255 REM ! 

308 GOSUB 208:? "MOTHE":? :? :5$=» 
D:*.TXT":GOSUB 1888:IF N=8 THEN GOSUB 


1458:GOTO 148 

310 GOSUB 1658:A$(LEN(A$3+13 =",TXT":OP 
EN #2,4,8,A$:FF$=A$(3,LEN(A$3-43 
328 FOR 1=1 TO 4:INPUT #2jH$;NEXT I:IN 
PUT #2;T$ 

338 IF LEN(H$3 <LEN(T$3 THEN FOR I=LEN( 


H$3 +1 TO LEN(T$3:H$(I,I3=" ":NEXT I 
348 GOSUB 288:1=0:NH=1:05(13 =1 
358 1=1+1:IF I>=L£N(T$3 THEN 418 
368 IF T$(I,I3="-" THEN 358 
370 f>E(NH3=I _ i 

388 1=1+1:IF I>=LEN(T$3 THEN 418 
358 IF T$(I,I3=" " THEN 388 


460 NH=NH+1:OS(NH3 =1:GOTO 350 
418 DE(NH3=LEN(T$3:? 


[Headings Fou 


SB”:? :GOSUB 1580:? :? "Press Any Key 
to Continue" 

428 INPUT #2;T$:N0TE #2,SEC,CHAR:GET # 
1,A:G0TG 148 
455 REM 

588 GOSUB 288:? « Wgl«MSEP ‘:? :? :? 
"load or greate":? :5$="D;*.LBL" 

528 GET #1,A:GOSUB 1388:IF A=76 THEN 6 
38 

538 IF A<>67 THEN 148 


548 POKE 752,8:? :? "Enter Left Margin 
Offset; ";:INPUT LM 
558 ? ;? "Enter # of Columns Assuming" 
:? " 18cpi; ";:INPUT NC 
568 ? ;? "Enter # of Labels Across Pag 
e (!":? " to 33: INPUT NL;IF NL<1 0 

R NL>3 THEN 568 

578 6=8:IF NL)1 THEN ? :? "Enter Horiz 
ontal Gap Between Labels";? " Assuming 


10cpi: ";.INPUT G 

580 ? :? "Enter Number of Rows (vertic 


ally!":? " of Text per Label: ";:INPUT 
NR 

558 GOSUB 208:? " fgHHWiEI 3TR ":? :? :G 
OSUB 1888:? ;GOSUB 1658:A$(LEH(A$3+i3= 
"«LBL" 

618 OPEN H2,8,8,A$:LL$=A$(3,LEN(ft$3~43 


628 ? #2;LM:? #2;NC:? #2;G:? #2;NL;? # 
2;NR:GOTO 678 

638 GOSUB I860:IF N=6 THEN GOSUB 1458; 
GOTO 148 

648 GOSUB 1658:A$(LEN(A$3 +13 =".LBL" 

658 OPEN #2,4,8, A$:LL$=A$(3,LEN(A$3 ~43 


668 INPUT #2;LM;INPUT #2;HC:INPUT #2;G 

;INPUT 82;NL:INPUT 82;NR 

678 LM1=LM:G1=G:NC1=NC:GOTO 148 


655 REM frfil;I 
788 GOSUB 288:? 


Print Format 


718 ? "goad or greate":GET 8i,A:CRF=l: 
? ;5$="&:*,FMT" 

726 GOSUB 1388:IF A=76 THEN 1180 
725 IF FF$=" M:MiT» " THEN ? "Data Fil 
e Not Loaded":GOSUB 1458:GOTO 146 
738 IF A<>67 THEN 148 


748 P$="":TRAP 745:GOTO 758 

745 TRAP 745;? "Error #";P££k(iS53D 

elected at Line ";PE£K(l863+25S*PE£Ka 

873:GOSUB 1688;GQ5UB 1456 

758 POKE 752,1;G0SUB 1788;? "8 = Strin 

g Input";? "l = Heading";? "2 = Item": 

? "3 = Spaces":? "4 = Tab" 

758 ? "5 = Remove Trailing Blanks":? " 
6 = Remove Leading Blanks-next item" 
778 ? "7 = Printer Control Code":? ”8 


= Carriage Return(s3":? "9 = End Entry 
":? :GET 81,A:IF A>127 THEN A=A-128 
788 POKE 752,6:A=ft-48;0N A GOTO 838,85 
8,876,588,918,548,958,1838,1848;IF A<> 
8 THEN 758 

799 REM grJTifcfd dlR 

886 CRF=8:GOSUB 1588:? "Enter String;" 
:INPUT T$:IF LEN(T$3=8 THEN GOSUB 1488 
:GOSUB 1688:GOTO 758 

828 P$(LEN(P$3 +13 =T$:A=38:GOSUB 1588:6 
OTO 758 

829 rem rnmnAmum 

838 CRF=8:GOSUB 1788:GOSUB 1588:? "«hi 
ch Heading: "; 


848 GOSUB 1588:INPUT A;IF A<1 OR A>NH 
THEN GOSUB 1480:GOSUB 1688:GOTO 758 
858 GOSUB 1588.-GOTO 758 


litem input! 


868 CRF=8:GOSUB 1788:G0SUB 1588:? * 


Ch Item: ";;GOTO 848 
865 REM H BEHdH 

878 CRF=8;GOSUB 1588;? "How Many Space 
s: ";:INPUT A 

888 IF A<i OR A)255 THEN GOSUB 1488:60 
SUB 1688;GOTO 758 

898 GOSUB 1588:GOTO 758 

899 REM 033 

988 CRF=8;GOSUB 1588;? "Tab to Which C 
olumn: ";:INPUT A:GOTO 888 


[trailing blanks! 


518 CRF=8:GOSUB 1588;? "Leave How Many 
Trailing Blanks: ";:INPUT A 
528 IF A<8 OR A)255 THEN GOSUB 1488;G0 
SUB 1688:GOTO 758 
938 GOSUB 1588:GOTO 758 


Heading blanks! 


548 GOSUB 1588;? "Leave How Many Leadi 


ngs Blanks":? 11 On Next Item; ";;INPUT 
A:GOTO 928 

949 REM 

950 GOSUB 1588;GOSUB 1788:? 

•9 


ontroi Codes 


Printer c 


968 ? " OS 0115 gS03":? "l 2 
Underline":? " 3 4 Enlarged" 

578 ? " 5 6 Enhanced":? " 7 
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SYNPRINT CON'T 


Double Strike" 

988 ? " 9 18 Italics":? " 11 12 

User Defined":? 

958 ? " 13 = 18cpi":? " 14 = 12cpi":? 

" 15 = 17cpi" 

1888 ? :? "Which Code: ";:INPUT A;IF 8 
>8 AND ft<16 THEN 1886 

1883 GOSUB 1488:GOSUB 1688:GOTO 758 
1886 IF A<3 Oft A)4 THEN 1815 

1889 IF CRF<1 THEN 1883 

1818 IF A>12 AND CRF=8 THEN GOSUB 1488 
:GOSUB 1688:GOTO 758 
1812 CRF=CRF+i:GOSUB 1588:GOTO 758 
1815 IF A<13 THEN 1828 

1818 IF CRFOl THEN 1883 

1819 GOSUB 1588:GOTO 758 

1828 CRF=8:GOSUB 1588:GOTO 758 

1829 reh 

1838 CRF=i:GOSUB 1588:? "How Many Carr 
iage Returns: ";:INPUT AiGOTO 888 

1839 rem mm s m 

1848 IF CRFOl THEN P$(LEH(P$3+1)="JH' 


1858 TRAP 138:GOSUB 1788:GOSUB 1888:60 
SUB 1658:A$(LEN(A$3+13=".FMT" 

1888 OPEN tt2,8,8,A$:PP$=A$(3,LEN(A$3-4 
):? 82;P$:GOTO 148 

1188 GOSUB 1888:IF N=8 THEN GOSUB 1458 


:G0T0 148 

'8 GOSUB 1658:A$(LEN(A$) +13 =".FHT" 
^ti38 OPEN 82,4,8,A$:PP$=A$ (3,LEN (A$3“4 
3:P$=»";INPUT 82;P$:G0T0 148 
1199 REM M’liAEWMdtoiatMlafi 
1288 FF$="H33iEH":LL$=FF$:PP$=FF$ 
1285 REM i 


Hone 


H£C or Prowriter Codes 


1218 UL8$="%Y":ULi$="tX":ENL8$=CHR$ (15 
3:ENLi$=CHR$(143:ENH8$=“%":ENH8$(2)=CH 
R$(343:ENH1$="I!":CPI18$="lN" 

1228 CPI12$="*E":CPI17$="*Q":DBL8$="": 
DBL1$="»:ITL8$="":ITLi$="":UDEF8$="":U 
DEF1$="" 

1238 LM=8:NC=I88:G=8:NL-1:NR=8;RETURN 


lower case 


1299 REM HyBBHfiMI 
1388 IF A)127 THEN A=A-128 
1318 IF ft>56 AND A<123 THEN A=ft-32 
1320 RETURN 


1488 POKE 752,1:? ;? ■ WIlftfiMOyiCT ” 
;CHR$(2533:GOSUB 1458:RETURN 
1458 FOR W=1 TO 588:NEXT N: RETURN 
1588 P$ (LEN(P$3+13 =CHR$(A3:RETURN 
1558 FOR 1=1 TO 3:L(I3=8:L2(I3=8:NEXT 
I:RETURN 

1568 A=ENL+I:LHi-INT(8,5+LM*CPI7(18*A3 
3;Gi=INT(8,5+G*CPI/(I8*A3 3:NGI=INT(8,5 


+NC*CPI/(18*A33:GOSUB 1550:RETURN 
1588 B$=" ";B$(3883 =B$:B$(23 =B$;GOSUB 
1558:RETURN 

1688 IF LEN(P$3>1 THEN P$=P$(I,LEN(P$3 

-13:RETURN 

1618 P$=»":RETURN 


1658 POKE 752,8:? :? "Enter New FiIena 
we: ";:INPUT A$:P0KE 752,1:G05UB 1668: 
RETURN 


1668 T$=A$:A$(1,23 =»D:":A$(33 =T$:RETUR 

N 

1788 GOSUB 208:? :? :? , W^B3EBBSSM 
33233":? : RETURN 
1799 REM 

1888 N=8:TRAP 1820:OPEN 82,6,8,5$:G0T0 
1838 

1828 TRAP 138:? 

OT* ;CHR$(2533:GOSUB 1450:RETURN 
1838 TRAP 138:? "1 


1848 INPUT 82;A$:IF LEN(A$3<I7 THEN 18 
68 

1858 N=N+1:? A$(3,183:GOTO 1848 

i860 CLOSE #2: IF N=8 THEN ? **008001 

■arffliW 


PRIHT HEADINGS 


1878 RETURN 
1899 REM S 
1588 FOR 1=1 TO NH 
1918 IF K18 THEN ? " »; 

1928 ? I;" ";H$(DS(13,DE(133 

1938 NEXT I 


1948 RETURN 
1995 REM | 

2888 if or pp$="BB9 

W then ? 

QDEESD* ( ;CHR$ (2533 : GOSUB 1450: GOTO 14 
0 

2818 POKE 752,1: GOSUB 288:? "EEHS933 
lTHIiW : ? :? "Insert Data Disk and Pre 


PRIHT ROUTINE 


ss Any Key":GET 81,A 

2828 A$="D:":A$(33 =FF$:A$(LEN(A$3 +13 =» 

.TXT":OPEN 82,4,8,A$ 

2838 POINT 112,SEC,CHAR:BLKFL=8:ENL=8:C 
PI=18:GOSUB 1560:GOSUB 1588 
2848 FINFLG=8:? :? "Specify Output DEV 
ICE:FILENAME INPUT A$:IF LEN(A$3=8 
THEN A$="P:" 


2843 IF A$="P:» THEN ? :? "Turn On Pri 
nter 8 Press Any Key":GET 111,A:? :? "P 
ress fcif&H to Pause or Abort" 

2846 OPEN 113,8,8,A$:IF A$=»P:» THEN ? 
#3;CPI18$jUL8$;ENL8$;ENH8$;DBL8$;ITL8$ 
;UDEF8$; 

2858 D$=" ":D$(7683=D$:D$(23=D$:11=8:T 
RAP 2888:IF FINFLG=i THEN 148 


2852 IF PEEK(532753>6 THEN 2858 
2854 ? :? "PRINTING PAUSED - Short or 
gontinue":GET HI,ft:GOSUB 1388 
2856 IF A=65 THEN 140 
2858 FOR 1=8 TO NL-i 
2868 INPUT 82;T$:IF LEN(T$3=8 THEN 286 
8 

2865 D$(1*256+1,I*256+LEN( T$3 3 =T$:II=I 
I+i 

2870 NEXT I 

2888 NL1=II:TRAP 138:IF NL1=8 THEN 148 

2885 IF NLlONL THEN FINFLG=i 

2898 GOSUB 1550:J=8:NR1=8 

2188 J=J+1:IF J>LEN(P$3 THEN 2133 

2118 A=A5C(P$(J,J33:J=J+i:K=A5C(P$(J,J 

33:0N A+i GOSUB 2148,2178,2188,2248,22 

58,2318,2410,2428,2600 

2128 IF BLKFL=2 THEN BLKFL=8:GOSUB 278 

8 

2125 IF BLKFL=I THEN BLKFL=2 

2138 GOTO 2188 

2133 IF NR=0 OR NR1)=NR THEN 2858 
2136 FOR I=NR1+1 TO NR:? 83:NEXT I:GOT 
0 2850 

2139 rem 

2148 J1=J 

2158 IF ASC(P$(J,J33<>30 THEN J=J+i:GO 
TO 2158 

2168 T$=P$(Ji,J-i3:GOSUB 3888:RETURN 


rint headin; 


2178 T$=H$(DS(K3,D£(K33:GOSUB 3888:RET 
URN 

2179 rem 

2188 FOR 1=1 TO NL1 

2198 N=DE(K3:IF DE(K3>LEN(D$3 THEN N=L 
EN(D$3 

2280 11=(1-13*256:T$=D$(II+D5(K3,II+N3 

2218 GOSUB 3188 
2228 NEXT I 

2238 RETURN 

2239 REM 

2248 T$="":FOR 1=1 TO K:T$(I,I3=» ":NE 
XT I 

2245 FOR 1=1 TO NL1:GOSUB 3888:NEXT I: 
RETURN 

2249 REM SB 

2258 FOR 1=1 TO NL1 

2260 N1=L(13-L2(13:N=K:IF N)NC1 THEN N 
=NC1 

2270 K=(1-13*188:IF N1<N THEN 2298 
2288 FOR II=K+N+1 TO K+Ni:B$(11,113=» 
":NEXT II 
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SYNPRINT CON'T 


STUNT RIDER 


2290 L(I)=N 
2398 NEXT I:RETURN 
2389 REH 

2318 FOR 1=1 TO NL1 

2338 Nl= CI-1)*188:TRL--1 

2348 FOR II=L(IJ +HI TO Ml+i STEP -1 

2358 TRL=TRL+i:IF B$(II,IIJ<>» » THEN 

2378 

2368 NEXT IX 

2378 IF TRUK THEN 2408 

2388 IF TRL>K THEN L €13=L(IJ-TRL+K;GOT 

0 2488 

2398 FOR II-H1+LCI3+1 TO Ni+L (I)+K-TRL 
:B$CII,II1=» ":NEXT II; L CI3 =L CD +K-TRL 


2395 IF LCIJ>MCi THEM L(Il=NCi 

2488 MEXT I:RETURN 

2489 REN amCTItfffCTTOilM 

HF mmkmmmiUiu 

2418 FOR 1=1 TO ML1:LI(I)=L(IJ *1;MEXT 
I; BLKFL=I:L£AD=K:RETURN 

2419 ren 

2428 ON K SOTO 2430,2448,2458,2468,247 
8,2488,2498,2508,2518,2520,2538,2548,2 
550,2568,2578 

2438 T$=ULI$:GOSUB 3288:RETURN 

2448 T$=UL8$;GOSUB 3288;RETURN 

2458 ? **3;£NLi$;:£NL=I;G05UB 1568:RETU 

RN 

2468 ? 83;ENL8$;;ENL=8:G05UB 1568;RETU 
RN 

2478 T$=ENHi$:GOSUB 3288;RETURN 
2488 T$=£NH8$;GOSUB 3288;RETURN 
2498 T$=DBL1$:GOSUB 3288; RETURN 
2588 T$=DBL8$:GOSUB 3288;RETURN 
2518 T$=ITLI$;GOSUB 3288;RETURN 
2528 T$=ITL8$:GOSUB 3288;RETURN 
2538 T$=UDEFi$;G05UB 3280;RETURN 
2548 T$=UDEF8$;GOSUB 3288;RETURN 
2558 ? *t3;CPII8$;:CPI=18;G05UB 1568;RE 
TURN 

2568 ? #3;CPI12$;:CPI=i2;GG5UB 1568;RE 
TURN 

2578 ? 83;CPI17$;:CPI=17;GQ5UB 1568;RE 

TURN 

2599 REN fgfaWztfJIJliiy.Pi.lJH.tamiim 

2688 IF LN1>8 THEN FOR II=i TO LN1;? 8 
3;“ ";;NEXT II 

2618 IF NL1=1 AND LC1)=8 THEN 2648 
2628 FOR 1=1 TO NL1 


2640 ? 83:MR1=NR1*1:IF K=1 THEN 2668 
2658 FOR 1=2 TO K:? 83:MRi=NRi+i:NEXT 
I 

2668 GOSUB 1588;RETURN 


Irewoye leading blanks subri 


2788 ULEAD:FOR 1=1 TO NL1 

2718 Hl=a-D*108:TRL=-i:IF L1CIJ>=LCI 

) OR K>LCI)-LICIJ THEN 2858 

2728 FOR II=N1+LiCIJ TO Ni+LCIJ 

2738 TRL=TRL+1:IF B$(II,IIJ<>" " THEN 

2758 

2748 NEXT II 

2758 IF TRL=K THEN 2858 

2768 IF TRL<K THEN 2818 

2788 B$ CN1+L1CIJ +K,NI+L CIJ-TRL+KJ =B$ CN 

I+L1CIJ+TRL,N1+LCIJJ 

2798 FOR II=Ni+L CIJ-TRL+K+i TO Nl+LCIJ 

:B$(II,IIJ=" ";MEXT II 


2888 GOTO 2858 

2818 FOR II=Ni?L CIJ-K+TRL TO H1+L1CIJ+ 
TRL STEP -1 

2828 B$CII+K-TRL,II+K-TRLJ =B$CII,IIJ 
2838 NEXT II 

2848 FOR II=NI+Li(IJ+TRL TO NI+LKIJ+K 
-i:B$(II,IIJ=" "-.NEXT II 
2858 MEXT I 
2868 RETURN 


leneral string insertion! 


3888 IF LEN(T$J =8 THEN RETURN 
3818 FOR 1=1 TO NL1 
3828 GOSUB 3188 
3838 NEXT I:RETURN 

3188 N1=LCIJ-L2CIJ;IF Nl>MCi THEN RETU 

RN 

3118 N=LENCT$J;IF Ni+M>NCI THEN N=NCI~ 

Ml 

3128 Nl=CI-iJ*108+LCIJ:B$CNi+1,Nl+NJ =T 
$Ci,MJ;LCIJ=LCIJ+N:RETURN 
3288 FOR 1=1 TO NL1:L2CIJ=L2CIJ+LENCT$ 
J;NEXT I 

3218 GOSUB 3888;RETURN 


PASSWORD FOR 
JUNE IS 
SNOW 2-3-4-S 


2625 Ml=(1-11*188:? «3;B$CMi+i,Ni+MCl+ 
L2CIJJ; 

2638 IF G1>0 AND IONL1 THEN FOR 11=1 
TO Gi:? 1*3;" ;NEXT II 
2635 NEXT I 


8 REH 


Thanks to tho u,K, 


FTfIWH(T!!i fc 


1 ? "INITIALIZING 

REH "STUNT RIDER" IS A ONE PLAYER, 
ONE JOYSTICK GAME, 

2 REH PRESS TRIGGER TO START BIKE OFF 

THEN INCREASE SPEED OF BIKE BY 
PUSHING JOYSTICK UP, 

3 REH TO DECREASE SPEED,PULL STICK 

BACK, 

4 REH THE OBJECT IS TO JUMP THE BUSES 

WITHOUT CRASHING, 

IF YOU ‘OVER DO IT 1 YOU'LL CRASH, 

5 REH **** SEE YOUR BIKES JUMP **** 

*** IN SLOW MOTION! *** 

6 REH A BONUS OF 288 POINTS IF YOU 

‘Just'HISS THE LAST BUS, 

7 REH POINTS ARE AWARDED FOR OTHER 

SUCCESFUL JUMPS, 

YOU HAVE 5 BIKES COR LIVESJ, 

8 REM SCORING OVER 3888 POINTS GIVES 

YOU AN EXTRA BIKE. 

9 REH ** PROGRAM WRITTEN BY R.ASKEW ** 

CFROM IDEA OF YOUNG SONJ, 

89 CEDAR R0.N0RHAMPTON.MN1 4RN 


18 CB=PEEK(7421*256-1824 

14 FOR A=8 TO 511:POKE CB*A,PEEK(57^4 
♦AJ:NEXT A;FOR A=8 TO 79;READ B;PO 
B+A,B:MEXT A 

15 GRAPHICS 17‘.POKE 756,CB/256;POKE 78 
8,132;POKE 789,52:P0K£ 718,8:P0KE 711, 
196 

28 POKE 712,288:POSITION 4,4:? 86;"StU 
nt rider";POSITION 8,6;? **6;»IIB ,, 

25 POSITION 3,8;? #6;“Q!!E 
05ITI0N 7,18;? **6;"aske*» 

38 ST=(PEEK(1861-161*256.POKE 54279,ST 
/256:FOR A=8 TO 256:POKE 5Tn824+A,8:M 
EXT A;Y=150 

35 FOR A=8 TO 7;READ B;POKE ST+1824+Y+ 
A,B:NEXT A 

48 POKE 53277,3;POKE 784,8:50UND 8,138 
,2,2:POKE 559,62 

58 FOR X=25 TO 228:POKE 53248,X:NEXT X 
:POSITION 4,15:? **6;"H0LD START" 

68 IF PEEKC53279J=6 THEN SOUND 8,8,8,8 
: POSITION 4,15;? **6;" ":GOTQ 

858 

61 GOTO 58 

74 ? 1*6; »*»: POKE 559,8 
76 EB=1: U=5; C=8 *, POKE 712,136 
88 POKE 77,B;BUS=INT(RN0C8J*iiJ+6 
81 POSITION 8,8:? **6:» gTiKT:73 »;C 
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LISTS BY STANOCKERS 


Tctf 

REH *** 

XXKMXXKKKXMKXXKKKMKKXKK 

HHHf 

28 

REH #* 

LISTS 

** 

30 

REH ** 

MORKS WITH DATA FROH 

*X 

48 

REH ** 

LABELS PROGRAH 3~85 


50 

REH ** 

S. 0. HAR 85 

X* 

60 

REH *# 

ACE NEWSLETTER 

** 

70 

REH ** 

3662 Vine Haple Drive 


88 

96 

REH *# 

REH #** 

Eugene, OR 97485 
XKXMKKXKKKEMKXXXXKKKKXH 

#* 


188 POKE 555,8:00506 5008:60508 2100:6 
0SUS 2008:60508 1280:6GSOB 1118:00506 
990;POKE 559,34:00508 868:60508 868 

181 REH *#* FIND LI5T LENGTH *## 

182 ? "FINDING LAST ENTRY":FOR J=7 TO 
4887 STEP 6:IF INDEX$(J,J+4)<>FREX$(i, 
5) THEN 186 

184 NEXT J 
106 LAST=J 

110 FOR J=i TO 4896 STEP I28:CGPY$U,J 
+127J=INDEX$(J,J+127}:NEXT J 

119 REH #** SORT THE INDEX INTO CQPY$ 

120 ? CHR$(125):POKE 203,8:POKE 284,4: 
POKE 285,6:POKE 206,1:? "SORTING" 

130 A-05R(ADR C50RT$},ADR(COPY$},682} 
168 ? CHR$(125};:POKE 752,1:60508 568: 
60S0B 488 
178 GET HI,A 

180 IF A=78 OR A=110 THEN GOSOB 550:60 
’60 

- IE A=65 OR A=97 THEN GOSOB 688:GOT 
0 110 

280 IF A=84 OR A=116 THEN GOSOB 658:60 
TO 118 

216 IF A=77 OR A=189 THEN GOSOB 380:60 
TO 168 

212 IF A=88 OR A=112 THEN GOSOB 968:60 
TO 160 

228 GOTO 178 

299 REH **# LIST ENTRIES *** 

388 U5EFLG=8:? CHR$(125};:? "MHAT LETT 
ER TO START";:GET lll,KY 
382 ? CHR$(125}:SAVKY=KY:FOR K-4987 TO 
1 STEP “6;IF A5C(C0PY$(K))>=KY THEN 3 
86 

364 NEXT K 

386 STP05=K:? CHR$(125} 

318 POSITION 3,1:? 'US-Back to nenu, 
mam, or A-z":POSITION 3,23:? "Ar 
row keys, S gMgfa . ?=5how entry"; 

328 J=l:POSITION 10,3:? "[UUKH 

HSHEHEl 11 ; 

338 A=ASC(COPY?(K+5)):GOSUB 468:P0SITI 
ON 3,3+J:? C0PY$(K,K+4) 

340 GOSOB 448 


358 J=J+i:K=K-6:IF J=19 THEN 370 
368 GOTO 330 

378 COL=i:ROW=l:POSITION 8,4:? CO$;:PO 
KE 752,8 

372 GET H1,KY:IF C0L>1 AND KY=43 THEN 

GOSOB 420:COL=COL-i:GOSOB 430 

374 IF COL<8 AND KY=42 THEN GOSOB 428: 

C0L=C0L+1:GOSUB 438 

376 IF R0M>1 AND KY=45 THEN GOSOB 420: 

R0H=ROH-1:GOSOB 430 

378 IF R0H<18 AND KY=61 THEN GOSOB 420 

:R0W=RQM+1:GOSUB 438 

388 IF KY>64 AND KY<123 THEN 302 

382 IF KY-155 THEN K=5TP0S:IF K-I88>=L 

AST THEN K=K-188:G0T0 306 

384 IF KY=63 OR KY=47 THEN GOSOB 450:G 

OSOB 858:POSITION 8,2:? REC$(1,27}:G05 

06 438 

386 IF KY=32 THEN USEFLG=1:GOSUB 458:A 
=IDX+4897-C*6:B-A5C(PMR$(COL}}:C=05R(A 
DR(BOL$),A,B}:GOSOB 468 
388 IF KY=27 THEN 396 
398 GOTO 372 

396 IF U5EFLG=1 THEN GOSOB 888:GOSOB 8 
88 

398 RETORN 

399 REH **# BITS TO ASTERISKS #** 

488 STARS$="-": A=OSR (ADR (BITS? 

},ADR(STARS$},A}:RETORN 

419 REH *** CURSOR ROOTINES *** 

428 POSITION 8+(C0L~1)*3,3+ROW:? " »; 

:RETURN 

430 POSITION 8+(C0L~1}*3,3+ROM:? CU?;: 
RETURN 

448 FOR L=i TO 8:POSITION 7+L*3,3+J:? 
5TAR5$(L,L};:NEXT L:RETURN 
450 A=STP05-(ROW-1)*6:CODE?=COPY?(A,A+ 
5):GOSOB 740:RETURN 

468 A=PEEK(A):P=5TP0S-(ROH-1)*6+5:COPY 
?(P,P)=CHR?(A):J=ROW:GOSU& 488:GOSOB 4 
48:60508 438:RETURN 
479 REH ##* CHOICES *** 

488 POSITION 1,28:? » ! ■ . 


482 POSITION 1,21:? »| Qane list 
Hodify a list I" 

484 POSITION 1,22:? "| list/list 0dd 0 
r Bake Qrint list !" 

486 POSITION 1,23:? »«— . 

.. . »";:RETURN 

499 REH **# PRINT LIST NAHE5 *** 

580 5=719:G05UB 858:POSITION 8,1:? "£E 
SBKQQ9CB3S' 1 ;:POSITION 5,3:? "0 - EV 
erything"; 

510 FOR J=i TO 8:POSITION 5,2*J+3:? J; 


" - ";:A=(J-l)#16+i:? REC?(A,A+15);:NE 
XT J;RETURN 

519 REH *** CLEAR PROHPT BOX *** 

528 POSITION 2,21:? BLK?(i,35);:P05ITI 
ON 2,22:? BLK$(1,35);:RETURN 

549 REH *** NAHE A LIST *** 

550 GOSUB 528:POSITION 6,21:? "List to 
nano (1-8)?";:GET 01,A:IF A=155 THEN 


RETURN 

552 A=A-48:IF A<1 OR A>8 THEN 558 
568 GOSUB 528:LI5$="":POSITION 3,21:? 


iINPUT NAME OF LIST 


0";A:POSITION 


6,22 


IINPUT LIS?:L=LEN(LIS?) 


578 P= (A-1X16+1:REC$(P,P+15) =BLK$(1,1 
6):REC?(P,P+L-l)=LIS?(1,L):S=719:GOSUB 
758 

586 RETURN 

599 REH *** CLEAR LIST TAGS *** 

680 GOSUB 520:POSITION 6,21:? "MhiCh 1 
ist to add to (1-8)?";:GET m,A:A=A-48 
:IF A<1 OR A>8 THEN 608 
684 GOSUB 520:POSITION 3,21:? "MhiCh 1 
ist to add to list ";A;" (8-8)?";:6ET 
ttl,B:B=B~48:IF B<0 OR B>8 THEN 604 
610 GOSUB 520:POSITION 3,21:? "EBEUB 
m ";B;” HBWH ";A;" liMHft 1 ::GET 01 
,K:IF K<>89 AND K<>121 THEN RETURN 
628 A=A5C(PMR$(A)}:IF B>8 THEN B=ASC(P 
MR$(B)) 

630 FOR J=4091 TO LA5T+5 STEP -6:POSIT 


ION 16,22:? J;:IF B=0 THEN 648 

632 C=USR(QND,PEEK(IDX+J),B):IF C=0 TH 

EN 641 

648 C=USR(ORA,IDX+J,A) 

641 NEXT J 

642 GOSUB 800:GOSUB 880:RETURN 

650 GOSUB 528:POSITION 6,21:? "List to 
take fro* (l-8)?";:GET ttl,A:A=A-48:IF 
A<1 OR A)8 THEN 658 

654 GOSUB 520:POSITION 3,21:? "List to 


take froH list ";A;" (8-8)?";:GET 01, 
B:B=B-48:IF B<8 OR B>8 THEN 654 
660 GOSUB 520:POSITION 3,21:? 

SB “;B;" aiMMliti ";A; (> BB3B h ;:GET 
#1,K:IF K<>89 AND K<>121 THEN RETURN 


678 A=255-ASC(PMR$(A)):IF 6)0 THEN B=A 
SC(PWR?(B)) 

688 FOR J=4891 TO LA5T+5 STEP -6:POSIT 
ION 18,22:? J;:IF B=8 THEN 698 
682 C=USR(QND,PEEK(IDX+J),B):IF C=8 TH 
EN 691 

698 C=USR(NND,IDX+J,A) 

691 NEXT J 

692 GOSUB 880:GOSUB 888:RETURN 
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739 REM *** FIND CODE STRING III INDEX* 
RET. SECTOR *5* *** 

748 C=USR(ADR(B$),682,ADR (INDEX*),ADR( 
CODE*),6,LEN (CODE*)):5=715-C:RETURN 

749 REM *** SAVE REC* TO SECTOR 5 *** 
758 IO=USR(ADR (SECRK*),ADR (REC*),5,11: 
RETURN 

799 REM *** WARNING *** 

888 TEHP*=REC*:SAVS=S:5=728:GOSUB 858: 
IF REC*(i,18)="ZZZZZZZZZZ" THEN REC*=T 
EMP$:5=5AV5:RETURN 

882 REC*=TEMP*:5=5AV5:POSITION 3,18;? 


WARNING?!- BE SURE DATA DISK 15 INI 


OSITION 18,12 

818 ? “THEN PRESS ANY KEY";POKE 764,25 
5 

828 IF PEEK(7641=255 THEN 828 
822 RETURN 

849 REM *** READ SECTOR *5* INTO REC$ 

850 REC*(128)=" “:AREC=ADR(REC$1:ASECR 
H=ADR(SECRM*):IO=USR(ASECRM,AREC,S,8): 
RETURN 

859 REM *** READ SECTORS 1-32 INTO IND 
EX *** 

868 INDEX*=" ":INDEX*(4896)=INDEX*:IND 
EX*(2)=INDEX* 

878 FOR 5=1 TO 32:G05UB 858:J=(5-11*12 
8+1:INDEX*{J,J+127J =REC*;NEXT 5;RETURN 


879 REM *** SAVE INDEX$ TO SECTORS 1-3 
2 *** 

888 POSITION 3,21:? "f 


SAVING UPDATED IN 


SH2";BLK* 

882 FOR S=i TO 32;J=(5-11*128+1;REC$=I 
NDEX*(J,J+127):GOSUB 758:NEXT S:RETURN 


899 REM *** PRINTING *** 

980 GOSUB 520:POSITION 3,21:? “Which 1 
ist to print (8-81?";:GET Mi,A:SEL=A-4 
8:IF 5EL<0 OR SEL>8 THEN 980 
902 GOSUB 528:POSITION 8,21:? “Print 9 
abels";:POSITION 3,22:? "Print Qirecto 
ry listing"; 

904 GET m,KY:IF KY=68 OR KY=180 THEN 
968 

986 IF KY=76 OR KY=188 THEN 918 

905 GOTO 902 

918 IF 5EL>8 THEN 5EL=A5C(PHR$(5EL11 
920 FOR J=4891 TO LA5T+4 STEP -6:IF 5E 
L=0 THEN 926 

924 C=USR(QND,PEEK(COP+J1,SEL1:IF C=8 
THEN 930 

926 C0DE$=C0PY$(J-4,J1:GOSUB 748:GOSUB 
858'.RESTORE 940:MARG=6:GOSUB 1380:FOR 


M=i TO SKIP:? #2;“":NEXT M 
938 NEXT J:RETURN 

948 DATA 0,1,1,2,255,0,8,3,255,8,8,4,2 

55,0,8,5,3,6,255,8,14,7,8,255 

959 REM *** SINGLE LINE LIST *** 

968 ? M2;"":IF SEL>0 THEN 5EL=A5C(PWR* 
(SEL11 

962 FOR J=489i TO LA5T+4 STEP -6:IF 5E 
L=9 THEN 966 

964 C=USR(QND,PEEK(C0P+J1,5EL1:IF C=8 
THEN 978 

966 C0DE*=C0PY*(J-4,J):GOSUB 740:GOSUB 
858:RESTORE 978:MARG=8:GOSUB 1380 
970 NEXT J:RETURN 

972 REM *** DATA LIST FORMATS PRINTING 

973 REM *** PAIRS (M BLANKS,FIELD Ml * 
*K 

974 REM *** M BLANKS = 255 (CARRIAGE R 
ETURN1 *** 

975 REM *** FIELD M = 255 (END OF DATA 
1 *** 

976 REM *** M BLANKS > 100 (TAB TO COL 
. BLANKS-1001 *** 

978 DATA 0,1,1,2,1,3,160,8,255,8,8,4,1 

,5,1,6,3,7,255,8,8,255 

980 REM *** TOTAL STRING SEARCH *** 

982 REM *** ANALOG M12 P. 84 *** 

984 REM*** C=USR (ADR (B$l, CNT, ADR (A$l, 
ADR(DT$1RL,DTL1 *** 

985 REM *** CNT=RECORD CNT *** 

986 REM *** A*=5TRING DT$=DESIRED TERM 

987 REM *** RL=RECORD LEN DTL=DES TERM 
LEN *** 

990 DIM B$(1391:RESTORE 1888:FOR J=1 T 
0 139:READ A:B*(J,J1=CHR$(A1 '.NEXT J:RE 
TURN 

1880 DATA 216,184,184,133,204,104,133, 
203,104,133,209,104,133,288,184,133,21 
5,184,133,214 

1810 DATA 104,184,133,205,104,184,133, 
286,169,8,133,212,169,8,133,213,162,8, 
160,0 

1828 DATA 177,214,224,8,288,2,132,216, 
209,208,208,43,232,228,286,248,22,200, 
196,285 

1830 DATA 248,50,72,152,72,138,168,177 
,214,133,207,184,168,184,165,207,24,14 
4,219,72 

1048 DATA 165,204,133,213,165,283,133, 
212,184,162,0,224,0,248,17,224,0,248,6 
,168 

1050 DATA 0,177,214,162,0,164,216,280, 
196,285,288,186,165,288,24,101,285,133 


,288,144 

I860 DATA 2,230,209,165,283,288,6,1657 
284,248,7,198,284,198,283,24,144,156,9 
6,-1 

1188 REM * LIVE H/O DOS ANALOG M17 P 5 
4 * 

1182 REM* IO=USR (ADR (5ECRW*), ADR (8UF* 
),SECT,FLAG * 

1104 REM * FLAG=8 TO READ, 1 TO WRITE 
* 

1110 DIM SECRW$(44):RESTORE 1128:FOR J 
=1 TO 44'.READ A:SECRM*(J, J)=CHR$(A) ;NE 
XT J:RETURN 

1128 DATA 104,104,141,5,3,104,141,4,3, 
104,141,11,3,104,141,18,3,104,184,281 
1138 DATA 1,288,7,169,87,141,2,3,288,5 
,169,82,141,2,3,169,1,141,1,3,32,83,22 

8.96 

1199 REM *** USR BOOLEAN FUNCTIONS *** 

1288 RESTORE 1210:DIM B0L$(64),Pfffi$(8) 
'.FOR J=1 TO 54:READ A:BOL$(J,J)=CHR$(A 
):NEXT J:BQL=ADR fBQL$) 

1284 RESTORE 1220:FOR J=1 TO 8:READ A; 

PHR$(J,J)=CHR$(A);NEXT J:NND=B0L+16:0R 

A=BGL*32:QND=B0L+48:RETURN 

1210 DATA 184,104,133,204,104,133,203, 

160,0,184,104,81,203,145,203,96 

1212 DATA 104,104,133,284,184,133,283, 

160.8.104.104.49.203.145.203.96 
1214 DATA 104,184,133,284,104,133, 
168,0,184,104,17,283,145,283,96 ^ 
1216 DATA 104,104,104,133,212,104,184, 

37.212.133.212.169.8.133.213.96 
1219 REM *** POWER STRING *** 

1228 DATA 1,2,4,8,16,32,64,128 

1299 REM *** PRINT ACCORDING TO DATA 5 
TATEMENT *** 

1388 M=l;K=-l:HOLD=0:SKIP=l;COL=i 
1382 READ BLNKS,FLDNO:PRT$(H,M)=CHR$(B 
LNK5):PRT$CM+1,M+l)=CHR$(FLDNO):IF FLD 
N0=255 THEN 1310 
1304 M=M+2:GQT0 1382 
1318 GOSUB 1394 

1328 K=K+2:BLNKS=ASC(PRT$(K)):FLDN0=A5 
C(PRT$(K+1)) 

1322 IF BLNKS=255 AND HOLD=0 THEN ? M2 
GOSUB 1394:GOTO 1320 
1338 IF BLNK5=255 AND HOLD=l THEN SKIP 
=5KIP+1:G0T0 1328 

1348 IF FLDN0=255 THEN ? M2;"":RETURN 

1358 RESTORE 1400+2*FLDNO:READ P05FLD, 

LFLD*.L=POSFLD+LFLD-l 

1368 IF REC$(L,L)=" " AND L>POSFLD THE 


9 


LISTS CON*T 

_ l=L-1:60T0 1368 

1368 IF L=POSFLD AND (KY=76 OR XY=188) 
THEM H0LD=i 

1370 IF L=PQ5FLD THEM 1328 

1372 IF BLMKS>189 THEM BLNK5=BLMKS-188 

;FOR M=i TO BLMK5-C0L:? #2;" ",’:COL=CO 

L4i:MEXT H:60TO 1399 

1389 IF BLMK5)0 THEM FOR M=i TO BLNKS; 

? #2;" ;MEHT M:COL=COL+BLNKS 

1399 H0LD=8;? tt2;REC$(P0SFLD,L) J:COL=C 

OL+L-PQSFLD+l;GOTO 1320 

1394 FOR M=1 TO MARG:? #2;" ;NEKT M: 

COL=MARG:RETURN 

1499 REM **# POSITIONS IN REC$ AMO LEM 
GTH5 OF FIELDS *** 

1492 DATA 1,12 
1484 DATA 13,15 
1486 DATA 28,24 
1498 DATA 52,24 
1418 DATA 76,16 
1412 DATA 92,2 
1414 DATA 94,5 
1416 DATA 99,12 
1418 DATA 111,17 

1998 REM *** ML SORT UTILITY COMPUTE! 
MAR *82 P, 144 *** 

2088 DIM SORTS(126):RESTORE 28181FOR J 
=1 TO 126:READ A:SORTS(J,J}=CHRS(A):ME 
XT J;RETURN 

0 DATA 184,184,133,217,104,133,216, 
_ ,133,289,184,133,288,169,0,133,218, 

133.287.162.1.165.216.133 

2828 DATA 214,165,217,133,215,24,165,2 

14.133.212.181.285.133.214.165.215.133 
,213,185,8,133,215,164,203 

2838 DATA 165,286,248,18,177,214,209,2 

12,144,44,248,12,176,19,177,214,289,21 

2,144,13,240,2,176,38 

2848 DATA 208,196,284,248,227,176,23,1 

44.223.169.1.133.218.164.285.136.177.2 
14,72,177,212,145,214,184 

2858 DATA 145,212,192,8,288,241,232,22 

4,0,288,2,238,207,228,288,288,172,165, 

299,197,287,288,166,165 

2068 DATA 218,201,8,288,144,96 

2899 REM *** FORM STRING FROM BITS OF 

A *#* 

2168 DIM BIT5$(24)’.RESTORE 2118:FOR J= 
1 TO 24:READ A:BITSS(J,J)=CHRS(A):NEXT 
J:RETURN 

2118 DATA 104,184,133,284,184,133,283, 

168.7.184.184.18.144.6.72.169.42.145.2 
83,104,136,16,244,96 

5089 DIM TEMPS(128),NAFLDS(28),RECS(12 
8),BLKS(58),XS5S(128),AS(1),LI5$(16):L 


FLD=18:? CHR$(125) 

5818 DIM COPY$(4896),PRTS(58),INDEXS(4 
896),STARSS(8):COP=ADR(CQPYS) 

5828 IDX=ADR (INDEXS)’.DIM FREXS(6):FREX 
$r”ZZZZZ0 ,, :DIM CODES(6) :OP£N #1,4,8,"K 
: 11 :OPEN H2,8,8, ,, P; 1 * 

5838 BLKS=” I, ;BLK$(58)=BLK$:BLK$(2)rBL 

KS:A=P££K(16):IF A>128 THEN A=A : i28:P0 

ICE 16,A:POKE 53774,A 

5848 COPYS(1)="0":COPYS(4896)=COPYS:CO 

PYS(2)=COPYS:DIM CUS(2):CBS="=>":RETUR 

N 


STUNT CON s T 


85 0=165:J=8:EX=8 

188 COLOR 1:PL0T 4,21:DRAHT0 BUS,2i:C0 
LOR 2:PLOT 4,22:DRAMT0 BUS,22 
185 IF U>i THEN COLOR 165:PL0T 1,8:DRA 
HTO U-1,8 

110 COLOR 163:PLOT 2,22:PL0T 3,21 
128 COLOR 132:PLOT 8,15:DRAMT0 19,15:P 
LOT 8,18:DRAMT0 19,18:PL0T 8,5iDRAHT0 
19,5 

198 FOR A=8 TO 7:P0?E ST+1824+Y+A,0:ME 
XT A;X=58;Y=64:RESTORE 1898:FOR A=8 TO 
7:READ B:POKE ST+1824+Y+A,B:NEXT A 
192 POKE 54286,192:POKE 559,62:P0KE 53 
248,X:SOUND 8,288,2,2 

195 IF 5TRIG(8)=0 THEN P=i;GOTO 288 

196 GOTO 195 

288 X=X+P:IF X>228 THEN X=48:G0SUB 258 

218 SOUND 8,188-IMT(P)#7,2,2 
212 POKE 53248,X 

215 IF STICK(8)=14 THEN P=P*8.825*EX:E 
X=EX+8,125 

216 IF STICK(8)=13 AND P>1 THEN P=P-8. 
1 

248 GOTO 288 

258 IF Y>118 THEN POP :POKE 53248,8:M= 
8:M=22:G0T0 388 

255 RESTORE 1898:FOR A=8 TO 7:POKE 5T+ 

1824+Y+A,8:READ B:POKE ST+1824+Y+484A, 

B:NEXT A:Y=Y+48 

269 RETURN 

388 X=IMT(P)*2 

395 IF K<3 THEN K=4 

386 IF K>17 THEN K=17 


STUNT CON’T 

388 Z=78-(K*4) 

389 COLOR QlPLOT M,N:IF M>8 THEN COLOR 
8-.PL0T M~1,N 

318 FOR A=i TO Z;NEXT A 
328 M=M+1 

338 LOCATE M,N,L:IF L=I63 THEN 0=166:N 
=N~1:COLOR 8:PL0T M-I,N+1 

335 LOCATE M,M+i,L:IF L=i THEN N=M~1:C 
OLOR 8:PLOT M-i,M+l:J=l 

336 IF J=i THEN 428 
348 GOTO 389 

428 COLOR G:PLOT M,M:COLOR 8’.PLOT M~l, 
N:SOUND 8,M,18,4 
425 IF M=K THEN 468 

438 FOR A=i TO Z:NEXT A:M=H+i;GOTO 428 

455 IF N=22 THEN 588 
468 COLOR 0:PLOT M,M:COLOR 8:PLOT N~i, 
N-i:SOUND 8,M,19,4 
462 IF H=19 AND M<22 THEN 788 
465 IF M=28 THEN LOCATE M,N+1,L:IF L=i 
THEN 888 

478 FOR A=i TO Z:NEXT A:M=M+i:N=N4i:G0 
TO 455 

508 IF M>BUS+4 THEN COLOR 8:PLOT M~1,N 
-i:G0TO 808 

581 IF M=BUS+3 THEN C=C+288:BQ=i 

582 SOUND 8,288,2,8 

585 0=169:COLOR 8:PLOT M-i,M~i;COLOR 0 

;PLOT M,N:FOR A=1 TO 48;NEXT A:SOUND 8 

,188-INT(P)*7,2,2:Q=165 

518 FOR M=M TO 19:COLOR 0:PL0T M,M:COL 

OR 8:PLOT M~1,N:F0R A=1 TO Z 

528 NEXT A:NEXT M:FOR A=1 TO Z/2SNEXT 

A:COLOR 8:PL0T 19,22:S0UND 8,8,8,8 

538 C=C+((BUS~3)*18)+188 

532 POSITION 14,8:? #6;C 

535 IF OHI THEN HI=C 

548 IF BO=i THEN SOUND 1,15,18,6:F0R A 

=1 TO 58:NEXT A:POSITION 14,2:? ttS^BG 

HUS":SOUND 1,8,8,8:B0=8 

558 IF 0 3888 AND EB=1 THEN 758 

688 IF U=8 THEN 988 

618 FOR A=i TO 588:NEXT A:? lier'N'^GOT 
0 88 

798 COLOR 8:PL0T M,N 

718 FOR A=158 TO 258:S0UND 8,A,2,10:N£ 

XT A:SOUND f,8,8,0:U=U~1:GOTO 608 

758 U=U+1:COLOR 165:PL0T U-I,8:50UND 8 

,28,18,6:FOR A=1 TO 38:NEXT A:SOUND 8, 

0,8,8:EB=0;GOTO 535 

888 COLOR 167:PLOT M,N:FOR A=158 TO 24 
0:SOUND 8,A,2,8 

885 IF A=188 THEN COLOR 168'.PLOT H,N 
818 NEXT A:SOUND 8,0,8,8:U=U-i:GOTO 68 
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USERCOMP 


9888 REH nn JHHDEEDB^niSBL nr-» 

9881 rah u l-i m immtmm ar »-* u 

9002 ROM 

9003 CLR :CLOSE #I:G0T0 9250 

9004 LINE=LINE-I:GOTO LOOP 

9005 FOR LIME-II TO 44-.POKE XP05,Z 

9006 0P=U5R(ADR(Ui$),ADR(Kl$),LINE) 

9007 6QSU8 FILL:PRINT 11 OT 1 ;LINE; 1 *) **; 

9008 FOR N=Z TO II 

9009 PRINT CHR$(PEEK(1536+N));:NEXT N 


1 OP HOT RECOGWISE&a 


9011 CLA55=U5R CADR 012$),ADR(0P$)) 

9012 ON CLASS GOTO 9023,9104,9050,9050 
,9020,9026,9040 

9013 PONE XPOS,XX:PRINT ”*+";ERR$; 

9014 FOR N=Z TO 96 STEP 8 

9015 POKE 712,38:SOUND Z,XX,18,8 

9016 POKE 755,3:FOR T=15 TO Z STEP -I 

9817 SOUND Z,T,10,T:NEXT TlPOKE 755,2 

9818 POKE 755,II:FOR T=Z TO XX:NEXT T 

9819 NEXT NlPOKE XPOS,Z:GOTO LOOP 
9023 GOSUB FILL 

9824 SOUND Z,XL,10,18SPOKE OP+3,13 

9825 LQ=PEEK(1540):OP-4:GOTO 9888 

9826 ON PEEK(1541) GOTO 9830,9128,9031 
,9832,9833,9828 

9827 REH 

9828 G$="SBC";X1=56 

9829 GOSUB 9125:GOTO 9810 

9830 G$="ADC":Xl-24:GOTO 9829 

9831 6$="STA":Xi=I84:G0TO 9829 

9832 X1=Z:0P=32:L0=86:HI=244:GOTO 9888 

9833 Xl=234:0P-X1:L0-X1;HI-X1 

9834 GOTO 9888 

9035 POKE 1548,Z:X1=Z 

9836 POKE 1541,3:HI=Z:GOTO 9858 

9837 ? F$;:IF PEEK(85)<XL~I THEN 9037 

9838 POKE 85,Z:RETURN 
9848 DIRECTIVE-PEEK(1541) 

9841 ON DIRECTIVE GOTO 9044,9803,9208, 
9835,9843 

9843 GOTO 9178 

9844 POKE XPOS,Z:GOSUB FILL 

9845 LIN£=LINE-(LINE>I) 

9846 L=L~A5C(BYTE$(LINE)) 

9847 FOR N=I TO 3:POKE 0P+N-5,Z 

9848 NEXT N:GOTO LOOP 

9858 POKE XPOS,9:GOSUB FILL:POKE XPOS, 
18 

9851 MOD£=Z:ANS=Z;HI-Z:BA5E=10 

9852 N=PEEK(1538):X=(N=88):Y=(N=89) 

9853 POKE 0P+I,3i:F0R N=I TO 8 

9854 GET NI,K:IF K=155 THEN K=32 


9855 err$=» wn:ina^?TfTtMr 

9856 PRINT CHR$(K);:POKE 0P+N,K-32 

9857 FOR T-I TO LEN(K2$) STEP I+I 

9858 M=A5C(K2$(T)):J=A5C(K2$(T+I)) 

9859 IF K=M THEN GOTO (9888+J) 

9860 NEXT T:GOTO ERROR 

9861 REH 

9862 IF BA5E=16 OR N>I THEN 9866 

9863 IF CLASS<>3 THEN GOTO ERROR 

9864 SOUND Z,XL,10,10:GOTO 9825:REH 0 

9865 8A5E=16:NEXT N:REM Q 

9866 K=K~7;IF BA5E<16 THEN GOTO ERROR 

9867 K=K-48:AN5=(AN5*BA5E)+K 

9868 IF ANS>65535 THEN ERR$=" HTOWi 
fl^aW ; GOTO ERROR 

9869 POKE OP+N+I,128:NEXT N:GOTO LOOP 
9878 IF N>I THEN GOTO ERROR 

9871 HGDE=8:NEXT NsGOTO LOOP 

9872 IF N)I THEN GOTO ERROR 

9873 HQDE=16+X*Y:NEXT N:GOTO LOOP 

9874 MODE=MOD£+I:GOTO 9869 

9875 H0DE=2-X:G0T0 9881 

9877 IF H0DE=9 THEN 9881 

9878 H0DE=18SPRINT ",Y"; 

9879 POKE OP+N+I,12:POKE 0P+N+II,57 
9888 REH 


[HOPE UNAVAILABLE! 


9082 HI=INT(ANS/256):L0=AN5-(HI*256) 

9883 IF HI)Z THEN H0DE=HGDE+4 

9884 BIT=A5C(BIT$(HQDE+I)):POP 

9885 0P=U5R(ADR(U3$),ADR(U3$),BIT) 

9886 SOUND Z,XL,10,10:POKE XPOS,18 

9887 IF 0P>255 THEN GOTO ERROR 

9888 POKE XPOS,19;? "('*;:S=Z:SOUND Z,X 
L,10,18 

9889 IF Xi>Z THEN J=X1;GOSUB STORE 
9898 IF 0P<>4 AND 0P<>12 THEN J=0P:G05 
UB STORE 

9891 J=LO:GOSUB STORE:X1=Z 

9892 J=HI:IF HI>Z THEN GOSUB STORE 

9893 ? "+)";:POKE XPOS,36:J=INTCL/10) 

9894 PRINT CHR$(176+(L> 99));CHR$CJ+176 
-18*(J>9));CHR$(i76+L-i0#J); 

9895 SOUND Z,Z,Z,Z:IF MORE THEN 9131 

9896 HI=Z:FLAG=Z:NEXT LINE:GOTO 9209 

9897 IF M0DE=9 THEN POKE OP+N+I,9:IF Y 
THEN M0DE=8 

9898 IF X THEN HQDE=8 
9099 GOTO 9081 

9188 USER$(L+I)=CHR$(J):L=L+I:5=5+1 

9181 BYTE$(LINE)=CHR$(S+FLAG) 

9182 PRINT J;",";:RETURN 

9183 REH 

9184 ERR$=» IMaWggMlMr *: ANS=Z 

9185 GOSUB FILL:POKE XPOS,9 


9186 POKE 0P+I,3:? "fc+LINE 8"; 

9187 FOR N=I TO I+I:GET BI,K;K=K-32 

9188 IF K=Z OR K=123 THEN 9111 

9189 POKE OP+N+I,K:K=K~16:PRINT K; 
9118 AN5=ANS*18+K:N£KT N 

9111 IF AN5<I OR ANS>44 THEN 9813 

9112 IF AN5<LINE THEN 9115 

9113 0P=P££K(I548) 

9114 HI=Z:LG=Z:FLAG=126+AH5:GOTO 9888 

9115 L0=254:GOSUB 9128 

9117 ERR$=" gir«iT«Ei:iagM » 

9118 IF L0<128 THEN GOTO ERROR 

9119 OP=P£EK(1548):HI=Z:GOTO 9888 

9120 FOR N=CLINE-I) TO ANS STEP ~I 

9121 T=A5C(BYTE$(N)) 

9122 IF T>128 THEN T=II 

9123 LO=L0-T:NEXT N:RETURN 

9125 FOR H=I TO I+II 

9126 POKE 1535+H,ASC(G$(M) ) 

9127 NEXT M:RETURN 

9128 6$="LDA":GOSUB 9125SPOKE XPOS,4 

9129 GOSUB FILL SPRINT " ElfflB LDA"; 

9138 OP=GP~I:MQRE=OP:GOTO 9818 

9131 GP=HGR£+N:PGK£ OP,95 

9132 MGRE=Z;G$="5TA":GOSUB 9125 

9133 FOR N=I TO 188:NEXT N 

9134 POKE 85,5:GOTO 9808 

9135 REM 

9136 AN5=212: G$="QH" 

9137 GOSUB 9145;GOTO 9082 

9138 AN5=2I3:G$="IGH":G0T0 9137 

9139 AN5=283:G$="EHP":G0T0 9137 
9148 AN5=286:G$="0URCE":GOSUB 9145 

9141 GOTO 9154 

9142 G$="(DESTN.) ":ANS=204:IF PEEK(153 
6)=76 THEN G$="(SOURCE)»:ANS=206 

9143 N=N+8:0P=0P-2;GOSUB 9145:GOTO 907 
8 

9145 PRINT G$;:FOR J=I TO LEN(G$) 

9146 POKE 0P+J+I,ASC(G$(J))-32 

9147 NEXT J;RETURN 

9158 AHS=186:G$=“EMTOP":GOTO 9137 

9152 IF BASE=16 THEN 9866 

9153 AN5=204:G$="ESTN.":GOSUB 9145 

9154 0P=0P+5:? " (+=HI)"; 

9155 NEXT N 

9168 AN5=ANS+1;G0T0 9882 

9178 HI=U5R(ADR(”hrf) flT»HS0 liiSBl S® 

OBiS B TO 3*Be«J|4")) 

9172 PAGE=PEEKCHI)SPOKE HI,PAGE-8 
9174 POKE 89,PAGE-8 

9176 PRINT " 0SU3: *CONT* TO RETURN 11 

9177 POSITION I,N23SPRINT "DO NOT INCO 
RPORATE LINES AT THIS STAGE"; 

9178 POSITION Z,II:PRINT "U5R=";U5£R$ 
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USERCOMP CONT 


9179 PRINT "*LENGTH::»;LEN (USERS); 

9188 PRINT » ;UNCQMPILED BRANCHES-"; 

9181 LO=Z:FQR N=I TO LEN(BYTES);IF ASC 
(BYTES(N,N))>128 THEN LQ=LO+I 

9182 NEXT Ns? L0:L8=LINE 

9183 GQ5UB UNSTRINGISTOP 

9184 LIN£=L0:N:=U5R(ADR("h3UQh{!T^ BUI 
■S PIItkli *”!! 

9185 POKE HI,PAGE:POKE 89,PA6E:HI=Z 

9186 GOTO LOOP 

9288 Ern-'wmmBm*' : REH ma 

9282 L=Z:F0R ft I TO LINE-I:L0=Z 

9283 J=A5C(BYTES(H)):IF J>0 THEN 9285 

9284 L-L+J:NEXT H:GOTO 9211 

9285 L-L+II:PRINT /'W; H; 

9286 J=J-128:F0R N=H*I TO J-I:TRAP ERR 
OR 

9287 T=A5C (BYTES (N)) 

9288 IF T>128 THEN T-II 

9289 LQ-LO+T:NEXT N:J=Z 

9218 U5ERS(L, L)-CHR$(LOJ:GOTO 9284 

9211 GRAPHICS Z: N=USR (ADR ("hM2 QztfS fiO 

cm : print " 

SGIVE LINE No,& STRING NAME"; 

9212 PRINT ";PRESS RETURN:" 

9213 POKE 766,1:N-LEN(USERS) 

9214 PRINT "?888 DIH CEEgS^N;")" 

9215 IF N)188 THEN 9219 

^216 ? "8888 {3*J2§S=";CHRS(0);U5£RS; 

17 POKE 766,Z:? CHRS(G):GOTO 9248 

9219 PRINT "8888 (U2i$r";CHR$tQ) ; 

9228 PRINT U5ERS(I,188);CHRS(G) 

9221 ? "8888 {25EIlS(i8i)::";CHRS<Q); 

9222 PRINT USERS(181,N);:GOTO 9217 

9223 REH 

9224 LINE-9988:FOR H-I TO LEN(USERS) 

9225 IF PEEK(85)<36 AND N>I THEN 9228 

9226 ? :? LINE;" DATA ASC(USERS(N)); 


9227 LINE=LINE+I:NEXT N:GOTO 9229 

9228 PRINT ASC(USERS(N))NEXT N 

9229 PRINT ",-l":RETURN 
9238 REH 

9231 FOR N-I TO 256:READ BYTE 

9232 IF BYTE<Z THEN POP :GOTO 9218 

9233 USERS(N)rCHR$(BYTE):NEXT NlEND 
9248 POSITION Z,18:? "GR.8:G0SUB »; 

9241 ? "UNSTRING:REH GIVE DATA LINES" 

9242 ? "GOTO ERASE:REH WIPE COMPILER 8 


PUT CURSOR OVER CHOICE 


ME! RETURN 


:POSITION Z,Z:END 
525* GRAPHICS 8:GRAPHICS Z:1=1:11=1+1: 
XX=26:XL=XX+XX:N23=XX+3:L=I:0=3* 


5251 FILL=5837:ERR0R=5813:5TRIHG=5231: 
UHSTRIHG=5224:ST0RE=519*:ERASE=525* 


5252 DIH OPS C256),U1$(1581,USERS(288), 
K1S C26J, K2S (84), 112$ (64), 113$ (64), BYTES ( 
1*8),F$(I),ERRS(24),G$(12),BITS(H23) 

5253 X=USR(ABR("(g)i7FflM<ro PfflEU3im 

W CM3 O'*®**) i*")): position z,z 

5254 lil$=" Ho op. Operand " 

5255 PRINT ' , ^ ,, ;U1$;U1$; , ' PLA -*■: 

OPEH #1,4, Z, "K":L00P=5886:XP0S=85 

5256 OL=USR (ADR (" (flYRA/fee/BDi >0* E 0 
BHDih t&J»HlHBe/3Haww»»IWW T3HJ^ 
Sh^rfike/^Aaiea^/inMnY Pnim^ ') i 

5257 DL=USR(ADR("(Bltp|iOI3eOP||||||||||| 
llllll llliff 1AM WMBagvnEDi-'ae i$R 

UlMRlii WOJS TOTOffl D+ao (*")) 

5258 FOR N=I TO H23-I 

5255 POSITION I+(N<18),N:PRINT Nj 
5268 POKE XPOS,XX+I:PRINT N+22:NEXT N 
5261 POKE 752,1:? " U.K ATARI OHNERS C 
LUB MitaaaHUiMiUlJlig ': :POKF 555,34:FS= 


5262 OPS="CLSlCLro:Li!®EQBDEWlNQJINQI! 
N(OBPH0:PL0hPLl3(RT085E08SEGBTABETASBTS 

^K(jrnvEHRQBjT)®HiajAa^L0DJRasH" 

5263 QP$(181)='^Ca»D!0HPfllORAl!DAfl3RA 
(®C£BTAn3lT,0EC|BHC|®xgSDYCEPI®PYCB 
T^Yfl®CEBBS0B|i«KlElMl8BaLklfflC2" 

5264 OPS (157) ="®04(3l5#Bffl5paa.* EEHBEB 
YBcpBHAxHiniT ^HgTraT^rrarnni uTW' 


5265 ui$="(ha»4iar>4oauaihiMHB»s 
H&YXEDgOti (E ^QiBBMLnZMQ KKTEEDI 


QfHGUS'Q MD33I QZ^i BUBi 
5266 UlS(1 83)='H| QF^jUlP)NUYGgli K3iP 


5267 KlS="?^-:*f95”h«!#A/f>- , +.| +Z" 

5268 U2$=" (h.Tlh.T>+«5fli5»JAi y , lTn!k ffl.Nle/ 

l^&H/SED'IZEIM/) t jjvi/GEH:d*b 1 /OB*) " 

5265 K2$=“$AA> BBCBDREBFB8C1C2C3C4C5C6C 
7C8C5C P(F#H=H)H,JYKXaLrHTTfcSjP»l|+i" 
5278 BIT$=" | Fffffff" 

5271 u3S=’'hajmjm«Nh.TCTih.Tfcj mBrh 

k/MEhiaa 1 

5272 USERS= ,, h4“: BYTES=" p*: GOTO LOOP-I 
5258 ? "Iffl 


5251 POKE 712,52:N=5252:INPUT FS 

5252 IF FSO'^Y" THEN 5256 

5253 GRAPHICS 8:? ;? :? H;N=N~1 

5254 ? “CONTttt"::POKE 842,1S:5T0P 

5255 POKE 842,12:IF N>8555 THEN 5253 

5256 GRAPHICS 8:LIST :LIST "C: n :REH 03 



858 FOR T=1 TO 15:READ E:SOUND 2,E,18, 
18:SOUND 3,E+1,18,8:F0R A=1 TO 25:NEXT 
A:NEXT T:SOUND 2,8,8,8:S0UND 3,8,8,8 
868 FOR A=1 TO 18: NEXT A 
878 FOR T=i TO 38:READ E;SOUND 2,E,18, 
18:SOUND 3,E+1,18,8:F0R A=1 TO 18:NEXT 
A:NEXT T:SOUND 2,8,8,8:S0UHD 3,8,8,8 
875 FOR A=8 TO 18:READ BiPOKE 1536+A,B 
!NEXT A:POKE 512,8:P0KE 51S,6:T=PEEK(5 
68)+256*PEEK(561):POKE T+27,134 
885 RESTORE 1188 
858 GOTO 74 

588 POSITION 5,4:? tt6;"9ai*e over'MPOSl 
TION 4,17!? «6;"HI-SC0RE ";HI 
585 POSITION 3,12:? tt6:■■ mSHMiH-MJJ " 
:POSITION 3,13:? 86:" t<3iJWMSttHiP ' 

518 IF STRIG(8}=8 THEN RESTORE 1858:GO 
TO 15 

515 FOR G=8 TO 6:P0KE 788,G 

528 NEXT G:GOTO 518 

1888 DATA 8,8,8,8,8,8,8,8 

1818 DATA 124,254,158,138,138,254,254, 

254 

1811 DATA 254,66,66,66,126,254,68,68 
1828 DATA 1,2,4,8,16,32,64,128 
1838 DATA 255,255,8,8,8,8,8,8 
184* DATA 12,2,236,28,58,165,165,66 
1858 DATA 26,25,53,82,168,88,88,32 
1868 DATA 137,66,32,8,4,28,115,28 
1978 DATA 8,8,8,8,4,28,115,28 
1888 DATA 8,12,2,236,58,185,165,66 
1858 DATA 12,2,236,28,58,165,165,66 
1188 DATA 138,8,148,8,85,85,85,8,138,8 
,148,8,85,85,85,58,8,185,8,58,9,185,8, 
188,8,118,118,8,8,8,58,58,8,8,88,89 
1118 DATA 8,8,74,74,74,74,74,74,9 
1158 DATA 72,165,156,141,19,212,141,26 
,288,184,64 


SNOW 2-3-4-S 
SNOW 2-3-4-S 
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LOCO BY RUTH ELLSWORTH 


TO &OGLEFT 
SETSH 7 
FD 2 
SETSH 6 
F0 1 
SETSH 8 
FD 2 
SETSH 6 
JOYSTICK 


TO DOGRIGHT 
5ET5H 3 


5ET5H 2 


SET5H 4 


5ETSH 2 
JOYSTICK 


TO DOG08MN 
SET5H 1 
FD 5 

JOYSTICK 

END 

TO DOGUP 
SETSH 5 
FD 5 

JOYSTICK 


TO JOYSTICK 
IF C JOY 8 ) <0 
SETH 45 * JOY 8 
IF ( JOY 8 ) = 8 

IF £ JOY 8 ) = 4 

IF C JQY 0 ) = 1 

IF C JOY 8 ) = 2 

IF ( JOY 8 ) = 3 

IF ( JOY 8 ) = 5 

IF C JOY 8 ) = 6 

IF C JOY 83=7 

END 


C5TOP3 


EDOGUP] 


TO BEGIN 
LOADDOGS 
PU 

SETSH 1 

WHEN 15 [JOYSTICK] 
END 


SETSH 3 
FD 15 
HAIT 18 
SETSH 4 


WAIT 18 
SETSH 3 
FD 15 
WAIT 18 
SETSH 4 


WAIT 18 
LT 38 

HAKE “CHAR RC 
IF :CHAR = "6 EGO] 

IF ICHAR = "5 E5TART] 


HAKE "CHAR "S 

HAKE "BOG E127 127 73 85 28 28 8 28 62 
62 62 62 62 62 113 113] 

HAKE "D0G2 E12 28 24 30 28 158 140 156 
138 254 254 254 254 126 115 53] 

HAKE "D0G3 E127 127 73 85 28 28 8 28 6 
2 62 62 62 62 62 113 113] 

HAKE "D0G4 E12 28 24 30 156 158 148 23 
0 254 254 126 126 118 54 51 3] 




MEETING 




EOOGDOHN] 

EDOGRIGHT] 

CDOGRIGHTJ 

EOQ6RIGHT3 

EDOGLEFT] 

EOOGLEFT] 

EOOGLEFT] 


TO TURN 
SETSH 2 
WAIT 18 


TO START 
LOAOOOGS 


SETSH 1 t = 

ST 

HAKE "CHAR RC . 

IF ICHAR = "G [TURN] 

»» | @ ra 

TO LOA0&0GS t===f 

PUTSH 1 E127 127 73 85 28 28 8 28 62 6 
2 62 62 62 62 113 113] 

PUTSH 2 E12 28 24 38 28 158 148 156 13 
8 254 254 254 254 126 115 53] 

PUTSH 3 E12 28 24 38 28 38 140 156 138 
254 254 123 115 36 48 48] 

PUTSH 4 E12 28 24 158 156 142 236 252 
254 126 126 118 54 58 3 3] 

PUTSH 5 E127 127 33 33 28 28 8 28 62 6 
2 62 62 62 62 113 113] 

PUTSH 6 E48 56 24 128 56 128 57 43 121 
125 127 127 127 126 206 228] 

PUTSH 7 E56 56 24 120 56 121 43 57 125 
127 127 222 286 6 12 12] 

PUTSH 8 E48 56 24 128 57 121 43 55 127 
127 126 126 118 188 284 132] 


wxm 

r-i •-•=>• 



HIGH 


SNOW 2-3-4-S 


TO GO 























LISTS 

Lists is a program to be used with data created on a data disk by the 
'Labels' program in the March '85 issue of A.C.E. Newsletter. It allows 
you to create up to eight individual lists. These lists are given separate 
names and can be combined or taken away from each other to create 
new lists. Any list can then be printed on labels or as a directory. 

After a little time for initilization, you will be presented with the current 
list names and a menu. 'N' allows you to rename a list while 'A' or 'T' 
permit adding to or taking away from a list. List #0 is made up of all 
entries, so adding list 0 to any other will produce another list containing 
all entries. Taking list 0 away from any other will completely clear out 
that list. Other combinations can be made by adding or subtracting one 
list from another. 

The 'M' option allows you to examine and change the members of any 
list (except 0). You will be asked for a letter where you want to start 
displaying members. A list of 18 code keys will be shown with 8 columns 
indicating which lists contain these members (marked with asterisks). 
A arrow cursor can be run up and down the rows and across the columns 
using the arrow keys. Pressing the spacebar will toggle the member in 
the list at the current cursor location. If you want to see the entire 
member name, press the question mark key (?). 'RETURN' will advance 
to the next 18 members. You may also press any letter key to start 
displaying members with that letter. 'ESC' causes the index to be 
updated and returns you to the menu. 

Print a list' option asks for a list # and asks whether you want labels 
or a directory printed. Labels are the single width 3Vi X 15/16 inch size 
with tractor feed backing. Be sure to position at the top line of the 1st 
label before starting. 

Unfortunately some changes to the 'Labels' program need to be made 
to produce a data disk to work properly with the sorting procedure in 
this program. Insted of X's we need z's (small letter) written in sectors 
1-32 and 720. The necessary changes in 'Labels' are: 

1) In line 5010: XSS$="z" 

2) In line 5020: FREX$ = "zzzzzz" 

If you have already typed in a bunch of names, you can try to modify 
the data disk you have: Run 'Labels' and hit RESET; Type in the following 
lines: 

0 FOR J = 1 TO 4096:IF INDEX$(J,J) = "X" THEN INDEX$(J,J) ="z" 

1 NEXT J:STOP 

Type GOTO 0 and when the process stops you can list INDEX$ to see 
that the changes have been made. If they have then type S = 720:GOSUB 
880 to update the index. 

You also need to fill sector 720 with z's by typing in the following in 
immediate mode: 

REC$(1)="z":REC$(128) = REC$:REC$(2) = REC$:S = 720:GOSUB 750. 

The data disk should now work properly with the 'Lists' program. If you 
haven't started entering names, just create a data disk by going to the 
subroutine at 830 of 'Labels' after making the changes above. 
************ warning *************** 

There is a major bug in the 'Labels' program. It has to do with the 
situation when a 6 byte index code key crosses one of the 128 byte 
sector boundaries. Since only one sector is saved, only part of this index 
key gets saved and you can't locate the entry again. The answer is to 
save two sectors (unless it is the last one, 32). The Following lines must 
be inserted in the program: 

77 REC$ = INDEX$(128*(S-1) +1,128*S):GOSUB 750:IF S = 32 THEN 

REC$ =TEMP$:RETURN 

78 S = S + 1:REC$ = INDEX$(128*(S-1) + 1,128*S):GOSUB 750:REC$ = 

TEMP$:RETURN 

88 REC$ = IND-9b-EX$(128*(S-1) + 1,128*S):GOSUB 750:IF S = 32 THEN 

GOSUB 500:RETURN 

89 S = S + 1:REC$ = INDEX$(128*(S-1) + 1,128*S):GOSUB 750:G0SUB 

500:RETURN 

I apologize for any inconvenience this may have caused. 

Stan Ockers 



14 


SYNPRINT 

(A Printing Utility For SynFile+ Written By Bob Floyd 
For Use By SPACE-St. Paul ATARI Computer Enthusiasts) 

This program was written to overcome some limitations in printing 
labels on SynFile + . You can now print labels 1, 2, or 3 across easily and 
save your print format to disk for later use. You can also save your label 
formats for later use. This makes it easy to choose any label format to 
go with any print format. You must have SynFile+ in order to make use 
of this program, although I'm sure modifications are possible for use with 
other programs. 

GETTING STARTED 

SynPrint contains no search capability. You are expected to let 
SynFile+ do the searching. The first thing to do is use the "LIST'' option 
of the "REPORTS" function of SynFile + . The best way to do this is to 
type out all of your headings in the order shown on the screen - 
consistency is important. Always do this step the same way every time! 
Next choose the disk output option instead of the printer. Choose 999 
as the printed page length. The title will not matter. Then perform any 
searches that are necessary. It is probably simplest to save your file to 
the same name used by SynFi!e + . It will receive ".TXT" extender 
automatically. 

USING SYNPRINT 

Load SYNPRINT.BAS the way you would any BASIC program. Probably 
your first choice will be "1", to load your file. A directory will appear with 
all files with a ".TXT" extender. Just type in the correct one. SynPrint 
scans the file and extracts the headings to let you know its found 
everything alright. 

Then you can choose option "2", to load or create a label file. This 
file tells the print routine how to layout your labels. Left margin offset, 
# of columns, # of labels per row, # of lines per label, etc. are supported. 
You should save a label format file for each type of label you use. A disk 
inventory routine makes saving and loading easier. 

Option "3" is for loading or creating print format files. This routine 
is similar to that used in SOFTSIDE MAGAZINE'S database. However, 
this is a souped up version with many new capabilities. Basically, you 
must choose from a list of options how to lay out the label. Generally, 
you can choose any combination of the following items: 

String Input —Enter a string from the keyboard to be used in output. 
It may contain printer control codes, but this may confuse output for 
multiple labels across. 

Heading—The heading (field name) of your choice will be printed. 

Item—The item (field data) of your choice will be printed. 

Spaces —Output the desired number of spaces. 

Tab —Use this command to tab to the desired column number on the 
label. 

Trailing Blanks —Remove undesired trailing blanks and choose how 
many can be retained. This is handy for printing city, state, etc. Use string 
input for the comma between city and state. This option can also add 
spaces if necessary. 

Leading Blanks —Remove undesired leading blanks on next item. Again, 
a chosen number of leading blanks can be left. If a large number of 
leading blanks are chosen, some of the characters may be lost off the 
end of the item. The "leading blanks" option is useful for right justified 
fields (lookup tables are right justified). 

Printer Codes—You can choose from the following printer codes 
assuming your printer provides these capabilities: underlined, enlarged, 
double strike, italics, user defined, and 10, 12 or 17 characters per inch 
(i.e., font width). The only rules are that font width changes, if used, 
must be the first command for a given line. This is also true for enlarged 
text on/off commands. If both are used, the font width must be first. 
The program prevents incorrect entries. SynPrint is currently set up for 
NEC 8023A/C and Prowriter control codes. These codes can be easily 
changed for various printers by altering lines 1210 to 1220 of the 
program. The variables should be self explanatory. It is best to set 
unuseable codes to equal "" , a null string. 

It is best to plan out your commands for the print format routine. It 
is easy to make a mistake, so a written copy of your commands helps 
to get it right the next try. A disk inventory helps in saving and loading 
your print format files. 

Option 4 is for printing. The ability to pause or abort is built into the 
routine. 

CONCLUSION 

SynPrint is reasonably fast, but not like lightning. Care has been taken 
to keep all math as integers so it could be compiled. I have not tried this 
yet, but expect it to work. I prefer the uncompiled speed for ease in 
pausing and aborted. Also, if you get into trouble and hit the "break" 
key, you can re-enter the program safely by typing "GOTO 140". If you 
have any questions or embellishments, you can contact me at 1193 
Churchill St., St. Paul, MN 55103, (612)-487-2627. 



RAMTALKER UPDATE 

(Reprint: STATUS, Feb. 1985) 

(This improvement permits XL and XE users to use RamTalker. — Ed.) 

It's time to improve RamTalker. We formerly had an elementary and 
wrong plotting routine for the sound waveforms. The routine did not plot 
Frequency vs. Time as I stated, but rather Time vs. Amplitude and 
Frequency. Trying to plot three values on two axes doesn't always work, 
so this month's program addition will be a new plotting routine in three 
dimensions. 

The routine asks you which section of sound you want to see. Since 
the 3D plot takes up more room on the screen, it is not possible to put 
all 7 seconds worth of sound on the screen at one time. After you tell 
the program which section to display, it begins to fill the three axis graph 
on the screen. Each line on the time axis represents 1/20 of a second; 
the height of the peak represents how many times (frequency) the 
volume level (amplitude 0-255, top of screen to bottom) occurs at the 
instant of time. 

To place the new routine into RamTalker, follow these steps: 

1. Type in the listing. This listing also changes the port to use to Port 
2, so everyone can now enjoy RamTalker; 

2. After typing the lines, LIST them to disk or cassette as, LIST''D:FIX" 
or LIST"C:"; 

3. Load in the earlier RamTalker; 

4. Delete these lines: 610, 620, 630, 640, 650, 660, 670, 680, 710, 
720, 730, 740, 750, 760, 770, 780, 790; 

5. ENTER the new listing from disk or cassette; 

6. Now SAVE the newly merged program to disk or cassette. 

— Randy Holmes 

RGB UPDATE 

The May, 1985 issue of the Bay Area Atari User Group Newsletter 
contains information from Arthur Blomseth, 16987 Frank Ave., Los Gatos, 
CA 95051. He had to modify the RGB conversion to use his IBM 
compatible RGB monitor with the Atari. 

He added a pot in the SYNC circuit, changed the sync transistor from 
a 2N2222 to a 2N2907 and referenced all output lines to ground. 

ERACE DISK No. 9 

SPANISH1, SPANISH2, ITALIAN1 and ITALIAN2 are Four language 
programs. 2 are in Spanish/English and the other two are in 
Italian/English. Both programs allows translation both ways. Spanish and 
Italian 1 are multiple choice where as Spanish and Italian 2 answers' 
are typed in. 

WORLDCAP & CAPWORLD: These geographical tests have 161 
independent nations to tease your memory. There are Direct Answers 
(CAPWORLD) and Multiple Choice (WORLDCAP). 

ASTROMATH, From the Best of ACE #10. Instead of finding the final 
product, you find the missing number. Uses the joystick & tigger to shoot 
down the correct number. 

ERACE DISK No. 10 

STARBIRD, From Paul Freeman. This program lets you improve your 
typing skills while having fun. 

CRICKET, From England's Page 6 by Phil Griffen. This unusual math 
game plays a game of England's baseball while answering question of 
adding, subtract and multiplication. 

MAGICBOA.RD, A multiplication game. Instruction are included. 
Messages occur on the blackboard telling if THE answer is correct or 
wrong. 

UNSCRMB1, UNSCRMB2, & UNSCRMB3. Three games from John 
Kelley. The object is to unscramble the letters to spell the word correctly. 

SPELLBOU.ND By Sydney H. Brown. An interesting version of 
hangman. It plays as a tug of war with a rope between the right- and 
wrong- lettered teams. 

FORKLIFT By Stan Ockers. Take 3 rhyming words from a pile and stack 
them in a pile on the right. 

FLASHO BY Jim A. Carr. The object of Flasho is to help memorize the 
multiplication facts. The name Flasho comes from the flashing 'O' that 
is positioned by the joystick to select the answer. 

— Nora F. Young 
ERACE SIG Editor 


ACE LIBRARY 

Two disks which may be of interest to Basic Programers and Koala 
Pad artists contain excellent Utilities written by Bob Floyd and Paul 
Freeman respectively. 

Bob Floyd's Disk is a program “Title" program enabling the user to 
easily add a MicroPainter/Koala screen and supplement it with Scrolling 
Text, Large text, Color Changes, and "the ATari Rainbow" in the user's 
choice of color register. 

This program, entitled THE BEAR ESSENTIALS, comes with full 
documentation on disk as well as routines to incorporate the programs 
into the user's program choice of FORTH and/or BASIC. 

The second disk is full of routines by Paul Freeman. It includes some 
special Koala loaders and Picture Dumps as well as a Utility to 
superimpose an unlimited number of Koala pictures. 

Also on this disk is a special Title generating program for the Basic 
Programer . . . and a great program for showing Koala/Micropainter 
Pictures containing user adjustable parameters. This latter program is 
the best all around "slide show" program I have used. 

Both of these disks are excellent and worthy additions to the ACE 
Library. 

— Graham Smith 


VP RAMBLINGS 

As I write this there still aren't any STs. We have heard from a lot of 
people as to when they will be out, but so far all of the predictions have 
proven to be false. I think we will just have to wait until the powers that 
be decide to get them to market and in what form. So hang in there all 
you people who want one your day is coming. 

If you have gone down to your local software store you have probably 
found out there isn't much new in software for the Atari. It seems most 
of the software people are waiting for the STs. This is too bad becau 
they are forgetting about all us users with plain old 400, 800, XL i 
XE machines. This is a big market which hasn't been used up and sim- 
will buy software if it is out there. My next thought is that if you were 
to write to some of the software companies and tell them you are waiting 
maybe they will get it in their heads that we do want new products and 
they just might start to produce again. Maybe? 

If some of you have nothing better to do you might also write me and 
let me know what you think are the 10 best programs you own and why. 
If you are a little lazy just tell the the 10 best. I want to know what you 
think are the best programs and also what you the reader likes so I can 
write about programs which are of interest to you and not just what 
comes along or is just of interest to me. 

- LARRY GOLD 


SNOW 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club and 
user's group with no connection to Atari Corp. We are a group interested 
in educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 

** President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 

503-344-5843 

Vice Pres-Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

503-686-1490 

Librarians-Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 

1503)689-7106. 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 

503-484-9925 

E.R.A.C.E. (Education SIG Editor)-Nora Young, 105 Hansen Lane, Eugene, 

Or 97404 /503-688-1458 

Send 50c stamps or coin ($1 overseas) to the Ness' for the new, updated 
ACE Library List-new in May 84 ! 

Bulletin Board 

(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson MX80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 
MicroBits. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 



TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line:’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 


Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 




MAIL 




